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1.0 INTRODUCTION 


1-0 INTRODUCTION 
1.1 PURPOSs 


This standard speci®ies the form and establishes tha {interpretation 
of programs expressed in the Control Data Corporation Standard 
FORTRAN languagee The purpose of this standard is to promote 
portability of FORTRAN orogqrams for use on CDC data processing 
Svstense . | 
Le2 PRACESSOR 

Tha combination of a data processing system and the mechanism by 


which oerograms are transformed for use on that data processing 
system is calied a processor in this standard, 


1.3 SCOPE 
1.3.1 INCLUSIOES. 
This standard speci@lieas: 


{1) The form of a program written in the CDC Standard FORTRAN 


banguajge 


(2) Rules for Intarpreting the meaning of such a program and its 
data 


(3) The form of writing input data to be processéd by such a 
program operating on data processing systems 


(4) The Form of the output data resultina from the use of such a 
program on ‘data processing systems 


1e362 EXCLUSTOUS. 
This standard does not specify: 


{1) The wacshanism by which programs are transformed for use on a4 
data Srocessing system 


{2) The method of transcription of programs or their input or 
output data to or From a data processina medium 


(3) The oosrations raquired for setup and control of the use of 
programs on data processing systems 


(4) The results whan the rules.of this standerd fail to establish 
an Intervretation 
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size or somplexity of a erogram and its deta that will 
capacity. of any specific data processing system or 
ity of a particular processor , 


{6} Tho range or pracision of numeric quantities and the method 
of rounding of ohne results 


{7) The physical properties of input/output recordss filess and 
units 


(8) Tha physical propertiss and inplementation of storeage 
1.4 CONEQRMANCE © 


ons specified in this 


The requirementss prohibitionss and opti 
rorms and relatfionships for 


Standard generally rater to oerrissible 


standard-conforming programs rather than for  processorse The 
obvious exceptions are the optional output forms produced by a 
processors which area not under the control of a proarame Tha 


requirements: prohibttionss and options for a standard-conforming 
processor usually must be Inferred from those given for programSe 


An executable program (2¢4e2) conforms to this standard if it uses 
oniy those forms and relationshins dascribed herein and If the 
executable program has an interpretation according to this standarde 
A program unit (2.4) conforms to this standard if it can be included 
in an exécubable program in a manner ‘that allows the executable 
Yrogram to be standard conforming. 


A processor conforms to this standard if it. executes 
standard-conforming programs in a manner that fulfills the 
interpretations proscribed harzsin.e A sStandard-cenferining processor 


may allow additional forms and relationships provided that such 
additions do not conflict with the standard ee and relationshipSe 
Houevars a standard-conforming processor Ay alloy additional 
intrinsic funetions (16.10) aven though this. eye cause a conflict 
with the name of an axternal function in a estandard-conforming 
programe IF such a conflict occursy the processor is permittad to 
ase the intrinsle function unless the name appears in an EXTERNAL 
statement within the program unite <A standard-conforming program 
must not use intrinsic. functions that have been added by the 
processor, Slate that a stendard-conforming program must not use eny 
forms or relationships that are prohibited by this standards» but a 
standard-conforming processor may allow such forms and relatjonships 
if they do not change the proper interpretation of a 
Standaerd<-conforming program. 


Because a standard=<conforming program may place demands on the 
processor that are not within the scope of this standard or may 
instude standard teams that ara not porteblesy such as external 
procedures defined by means other than FORTRANs conformance to this 
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1.4 CONFORMANCE 


standard dows not ansure that a standard-conforming pregream wild 
execute consistently on all or any standard-conforming processorse 


1.5 NOTATIOQU_USED_IL_INIS_SIANDARD 


In this standards "must" is to be interpreted as a requirement$ 
‘conversetyys "must not" is to be interpreted as ae prohibition. 


In describing the form of FORTRAN statements or censtructss the 
Following metalanguage conventions and symbols are used: 


(1) Spacial characters from the FORTRAN character set, uppercase 
letterss and uppercase words are to be writtan as showns 
except where otherwise noted. 


(2) Lowercase letters end towercase words Indicate gqgeneral 
entities for whieh spectfle entities must be substituted In 
actual statements. Once a given lowercase letter or word is 
used in a syntactic specification to represent an. entitys all 
subsequant occurrences of that letter or word represent the 
sane antity until that letter or word is used in a subsequent 
syntactic specification to represent a different entity. 


(3) Bracketssy — J» are used to Indicate optional itams. 


(4) An e@ilipsiss e+ =» indicates that the preceding optional 
items may appear one or more times in successione 


(5) Blanks are used to improye readabilitys but untass otherwise 
noted have ano slaoniflcance. ‘ 


(6) Words or groups of words that have special significance are 
underlined where their maening is describede Titles and the 
metalanguaga symbols described jn 12-5(2) above are also 


underlinede 


An example illustrates the metalenoguage.e. Given a description of the 
form of a statement asi 


CALL sub C(Cla Csaleos])] 
the folloying forms are alloweads-: 


CALL sub 
CALL sub 


() 
CALL sub (a) 
CALL sub (asa) 
CALL sub (ae asa) 


etce 
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1.2.5 NOTATION USED IN THIS STANDARD 
When an actual statement is written, specific entities are 
substituted for syh and sach a} for example: 


CALL ABCD (Xs1.0) 
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2¢<0 FORTRAH TERNS AND CONCEPTS 


This section introduces basic terminology and conceptssy some. of 
which are clarified further in tfater sectionse MNany terms and 
concepts of more specialized meaning sre also introduced in tJatar 
Sections. The undertined words ere described here and used 
throughout this standard, 


A saqguence IS a set ordered by a one-to-one correspondence with the . 
numbers ls 2s through oe The number of elements in the sequence is 
ne A Sequence may be emptys In which casa It contains no elemants. 


The elements of a nonempty sequence are raferred to as the first 
mfements second elements etce The ath elements where o Is the 
number of elements in the sequences is called the last element. An 
ampty seguance has no first or last elament. 


@e2 SYNTACTIC ITEMS 


Letterss diygitss and speciel characters of tha FORTRAN character set 
(3.1) are used to form the syntactic items of the FORTRAN languages 
The basic syntactic items of the FORTRAN Jtanguage are constantsys 
symbolic namesys statement labels», keywords, operators, and special 
chauracterse. 


The form of a constant is described in Section 4. 


A symbolic name takes the form of a sequence of 1 to 31 tetterss 
diglts»s or underscoressy the first of which must be a fetter. 
Classification of symbolic names and restrictions on their use are 
described in Section 19. 


A statement label takes the form of 32 sequence of one. to five 
digits, one of which must be nonzeroy and is used to identify a 
skavement (364). 


A Skeswyord takes the form of a specified sequence of letters. The 
keyvords that are significent In the FORTRAN language sare described 
in Sections 7 through 16. In many Instances» a keyword or a portion 
of a Keyword also meets the requirements for a symbolic name. 
Whether a particular sequence of characters identifies a keyword or 
a symbolic name is implied by context, There Is no sequence of 
characters that is reserved in all contexts in FORTRAN. 


The set of special characters is described In Bele4e A Special 
charact@r may b@ an operater or part of 3 constant or have some 
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other special fi ts saningds The interpretation is impliad by contexte 
223 STATEMENTS: COMMENTS s_ AND LINES 


A FORTRAN statement’ is a sequance of syntactic itemss as described 


in Sections 7 through 16. Exceot for assignment and statement 
Function statements, each statement begins with a keyworde In_ this 
standards the keyuvord or keywords that begin the statement are used 


to identify that statement» For examp le es a DATA statement begins 
with the keyword DATA. 


jtten in ona or mora liness the first of which its 
ine (3.2.2)3 succeedjng lines» if anyy are called 
{3e203)0 | : 


A statement is wr 
called an initial L 
continuation Lines 


There is a 


iso gq dine called a comment Line (3.2.1), which is not 
part of any stat 


cement and is intended to provide documentatione 
2e3el CLASSES_OF STATEMENTS. 


Each statement is classi? Pied as e@xecutadoie or nonexecutable (Section 
7). executable statements speci fy actions. Nonexecutable 
statements describe the characteristicss arrangements, and initial 
values of data; contain editing itinformation; specify statement 
Functions} classify program units; end specify eantry points within 
SUDPrOgrans. a 


264 PROGRAM_UNITS_AND PROCEDUPES 


A pregran unih sconsists of a sequence of statemants and optional 
comment linese A program unit is either a main program or a 
SUDPrOOr ate 


A gabo programy ts a program unlit that does not have a FUNCTIONs 
SUBROUTINE, or BLOCK DATA statement as its first statement} it may 
hayé a PRAGRAN statement as its first statement. 


A subprojcsm is a program unlt that has a FUNCTION, SUBROUTINEs or 
BLOCK DATA statement as its first statement. A subprogram whose 
first statament is a FUNCTION statement ts called a4 Function 
subprourame A subprogram whose first statement is a SUBROUTINE 
statemant is called a subroutines suborogram. Function subprograms 
and subroutine subprograms are called procedure subprogramse A 
subprogran whose Tirst statement is a BLOCK DATA statanent is called 
a block data subprogran. 


Subroutines (16.6) external functions (16.5)5 statement functions 
(15.4)5 anid the  jntrinsic funetions (1663) are called proecsdurese 
Subroutines and external functions are called external procedures. 
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Function subprograms and subroutine subprograms may specify one or 
more external functions and subroutiness réspactively (167). 
External procedures may also be specified by means other than 
FORTRAN subprograms. 


2e4e2 SRECUTABLE PRUGRAM. 


AN awauednie Seouman is a colfection of program units that consists 
of exactly one main program and any number, including nones of 
suborograms. and external procadurese 


A Variable is an entity that has both a name and a typae A variable 
nana Is 6 symbolic name of a datume Such a datum may be identifieds 
defined (2.12) and referenced (2.13). Note that the usage in this 
Standard of the word "variabin" is more restricted than its normal 
usages in that it does not Include array elementse 


The type of a variable is optionally specified by the appearance of 
the variable name in a type-statement {(Be4)- If it is not s0 
specifieds the type of a variable Is Implied by the first letter of 
the vyariable name to be integer or real (4.1.2)»9 unless the initial 
fetter type implication is changed by the use of an IMPLICIT 
stacement (38.5). 


At any given time during the execution of an executable programs a 
variable is either defined or undefined (2412). 


—2e6 ARRAY 


An actray is a (possibly empty) sequence of data that has a name and 
a type. Tha name of an array is a symbolic namee An array name is 
the symbolic name of g sequence c? data» Such a sequence of data 
may be identifiedy defineds and referenced. At any given time 
during the execution of an executable programy an array is either 
defined or undefinad. 


2.601 ARRAY SLEMENTS 


sach of the alements of an array is called an array elemeot. An 
array name qualified by asubscript is an array element name and 
identifies a particular alement of the array (564), unless the array 
has size zero. Such a datum may be Identifleds defined (2+12),s and 
referenced (2+¢13)-¢ The number of array elements in an array is 
specified by an array declarator (542). 


An array element has a tyoe. The tyre of all array elements within 


an array is the sames and is optionally specified by the appearance 
of the array .nam2 in 2 typegestatemant (8.4). If it is not so 
specifjeds the tyosn of an array elamant Js Implied by the first 
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2e6e1 ARRAY ELEMENTS 


Jatter of thea array name to be integer or real (461.62)9 unless the 
initial letter type implication Is changed by the use of an IMPLICIT 
statement (8.5). 


At any given time during the execution of an executable programs an 
irray element is elthar defined or undefined (2. 12). 


2eGe2 ARRAY _ SECTIONS 


An array saantion is a subsequenc2 of an arraye An erray name 
qualified by a section subscript identifies a particular subsequence 
of tha arraye The type of all array efements within an array 
section Is the same as the tyne of the array name. 


At any given lis during the exacution of an executable programs, an 
array section is sither definad or undefined. 


207 SURSTSING 

A character datum Is a (possibly empty) sequence of characterse A 
suhstring is a contiguous portion of a character datum, The form of 
4 substring name used to identify» . define (2. 12)» or reference 
(2.13) a substring is described in 5e1lOele 


At anv given time during the execution of an executable programs a 
substring is either defined or undefined {2612). 


203 SCALAR 
A scalar is a constéints vari2abias arrey elements scalar-valued 


function raferences or substrings. The value of an expression is a 
scalar if each primary in the expression is a Scalares 


2.9 DUUMY ARSUNENT 


A dummy argument In a procedure }s either a symbolic name or an. 


asteriske A symbolic name dummy argument identifies a variables 
arrays or presedura that bacomes associated (2.15) with an actual 
arcument oF cach referance (2.13) to the procedure (164.22 1624.29 
LOH.5e2% and 164.622). An asterisk dummy argument indicates that the 
corresponding actual argument is an alternate reéturn specifier 
(lbs6e2e 38 14.833 and 16092355) 6 


Each dummy argument name that is classified as a variables arrays or 
dummy procedure may appear wherever an actual namé of the seme class 
{Saction 19) ard type may aporeurs exsant where explicitty 
prohibited. 
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2.19 SCOPE_QE SYMBOLIC NAMES_AND STATEMENT LABELS 


The scope of a symbolic name (19. 1) is an axecutable programs a 
proyrad units a statement function statement, or an imp!tied-DO list 
in a DATA statement. , 


The name of the main program and the names of black data 
suboragramss axternal functionss subroutinesy and common blocks have 
a scope of an executable program. 


Tha names oF variablas, arraySs constantss statement functionsys 
intrinsic functions, dummy procedures»y and NANELIST group names have 
aA scope of 4a program unite 


Thea names of yveriables thet appear as dummy erquments in a statement 
Function statement have a scone of that statement. 


The names of variables that appear as the OD-variable of an 


implied=DO in a DATA statement have a seope of the implied-DG Tiste 
Statement labels have a scope of a program unjte 
2e1ll1 LISI. 


A ist ts a nonempty saquence (2.21) of ‘syntactic entities separated 
by commas, The. entities in the list are called list items. 


Ael2 DEFINITION SIATUS 


At eny given time during the executian of an executable programs the 
definition status of each variable, arrays array sections array 
alaments or substring is either deflned or undefined (Section 18). 
A defined entity has a value, The vaiue of a defined entity does 
not change until the entity becomes undefined or is redefined with a 
different value, Zero-sized errayss array sections and substrings 
are taken always to be defined with a special value that depends on 
their shape and types 


Tf avarlables arrays array sections array elements, or substring is 
undefineds it does not have a predictable value. 


A previously definad variables non-~zera sized arrays non-zero sized 


array sectians or array element may become undefined. Subsequent 
definition of a defined variables arrays array sections. or array 
sloanent is permittads eaxceot where it Is axplicitly orohibited. 


A oheracter entity is defined if it has size zero or if every 
substring of length one of the entity is defined. Note that if a 
string is dafineds evary substring of the string Is defineds and if 
any substring of thse string Is undefineds the string Es undefined. 
Defining. any substring does not cause any other string or substring 
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2.12 DEFINITION STATUS 


to become undefined. 


An entity is initially defined if it has size zero or if it is 
assfaned a value in 2a DATA statement. (Section 9). Initially defined 
entities are in the defined state at the beginning of execution of 


an executable programe All variables and array elements not. 


initially deafinads nor associated (215) with an Initially defined 
antitys are undefined at the beginning of execution of an executable 
proaor alle 


An entity must be defined at.the time a reference to it Is executed. 


A variable» arrays array s2etiony array elements or substring 
ctefacaenc2 is the appearance of a varftabiles arrays array sections 
array elements or substring namey respectivelys in a statement in a 
context requiring the value of that entity to be used during the 


axacution of the axecutabie programe When a peferenca to an entity 


js axecuteds fts current value is available. In this standardy the 
act of defining an entity its not considered a reference to that 
anctitye 


A procedure raference Is the appearance of a procedure name in a 
statement in a context that requires the actions specified by the 
procedure to be exacuted during the execution of the executable 
program. When a procadure reference is axacuteds, the procedure must 
be available. 


@el% STORAGE 


A storage sequence is a sequence of storage unitse <A storage unit 
is either a numerics storage units a character storage units or a bit 
Ss ; 


An integers reals Booleans or logical datum has one pumeric storage 
yoit in a storeje sequence. A double pracislon or complex datum has 
two numeric storage units in a storage sequencee A haif precision 
storage unit is half of a numeric storage unite A cheracter datum 
has one character stoteas unit in a storage sequence for each 
character in the datume <A bit datum has one bit storage uoit ina 
storage sequence for each bit in the datume 


A storage unfit has a sequence of consecutive bit positions. A bit 
position of a storayjg# unit may hold a component of a datum having 
that storage unit. This component Is «4 bit values or blts of O oor 


le A numeric storaye unit has 64 bit positionse A character 
storage unit has 8 hit positionse A bit storage unit has 1 bit 
position, . 
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If a datum requires more than one storage unit In a storage 


sequencey those storage units are consecutive. 


Tha concept of a storage sequance is used to describe relationships 
that exist. amony variables»s array Siemens arrays, substrings, and 
common blocks. This standard does not specify arelationship 
between the storage sequence concept and the physical properties = or 
implementation of storagae | 


2e15 ASSOCTATION 


of entities exists if the same datum may be identified 


Association 
by differant symbolic names In the sane program unlts or by the same 
name or a different name in different program units of the same 


executable program (18.1). 
Enkities may besome associated by the following: 

(1) Common association (8534) | 

(2) Equivalenca association (8.262) 

(3) Argument assaclation (16.9.3) 

(4) Entry association (16.7.3) 
Aelb SUAS: 
The shape of an array or array section is the number of dimensionsy 
the siz2 of each dimensions and whether the array Is defined as 
rowwise or columnwisee 


The shape of an @rray is denotad by (dls d2s esesr GN) where n is the 
nunber of dinenstions and di is the size of the ith dimension. 


Two array objects (arrays array sections array-valued expressions 
arraye-valued functions eglemental function refarence with an array 
result) are of the same shape only if they have the. same number of 
dimensionss the size of each dimension is the sames and they are 
doth columnwise or both rowwisee 


The shgpe of a scalar is zero dimensions. 


The shape of a user array-valued function is determined by the 
declaration for tha function name 45 an arrey in the PROCEDURE 
INTERFACE I'JFORMATION. BLOCKe The shape of an elemental intrinsic 
Function is the shape of the argument with the greatest number of 
dimensions. 
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ay 


2.17 CONEDRNASILITY 


Two array objects (arrays array sectjons array-valued expressions 
array~valued functions elemental function reference with an array 
result) are gopformnabia If thay have the same shape, A scalar is 
conformable with any arrays array sections, or array expressione The 
scalar is treated as if it had been extended to an array with the 
Senne shape in which all array elements have the value of the scalare 


2.18 ALLOCATABLE 


An allocatable array is jllogatead if it has heen specified during 


the  axecution of an ALLOCATE statement and not subsequently - 


released. An allocatable array is no longer allocated if it has 
been specified during the execution of a FREE statements or if 
execution of the subprogram tn which it was deciared has been 
terminated by execution of a RETURN or END statement and the array 
name is not specified by a SAVE statement. 
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3.0 CHARACTERSs LINES» AND EXECUTION SEQUENCE 
361 EQRTRAN_ CHARACTER SET 
The FORTRAN character set consists of twenty-six letters» ten 
digits, and fifteen special characters. 
3e1e1 LETIEES 
A letter is one of the twenty-six characters? | 
ABCDE FGHIJSKLNNOPOARSTUVWXY2Z 


Each letter also has a lower case forme Except in a character 
constant (4.8.1)» Hollerith constant (4e9ele1)» apostrophe edit: 
Yaseriptor (142561). quote adit descriptor (14.25e1)» or H edit 
dascriptor (14.522)» the lower case form of a fetter is fnterpreted 
as. merely aoe variation in the graphic used for the fetter. Ina 
character constants Hollerith constants apostropha edit descriptors 
quote edit descriptors or H edit descriptors the lower case form of 
a letter is interpreted, as a different character from.the upper case 
form of thea letters, except as explicitiv noted elsewhere within this 
language spacificatcione 


ais DIGITS, 
A digit is one of the ten characters: 
0123456789 


A string of digits is interpreted in the decimal base number system 
when a numeris interpretation is appropriate. 


An actal diuit is one of the elght characters: 
01234567 
The digits in an octal sanstant (4.9162) must all be octal digits. 
A hexadecimal. digit is one of the sixteen characters: 
01234560789 A BBCODE F 
The digits in a hexadecimal constant (4.9.1.3) must all be 
hexadecimal] digitSe Except in an octal or hexadecimal constants a 
string of digits fis Interpreted in the decimal besa number system 
when aonumber system base Interoretation Is appropriate» In an 
octal constants, a string of octal digits Is interpreted in the octal 


base number systeme In a hexadacine!l constants a string of 
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hexadecimal digits is interpreted in the hexadecimal number systé€me 
Bele3 ALPHANUHERIC CHARACTERS | 

An alehanumeric character is a letters a digits or the underscore, 
“Bele4 SPECIAL_CUARACTERS. | | 


A special character is one of the fifteen characters: 


al 
i 
i 
1 
I 
! 
i 
t 
i 
i 
' 
i 
i 
j 

+ 


tot sa SHO Sem Pe Hh ane SRY SI Me NN Gang Ee Ne SA Sn Om On tn Go ene en neve + 
Nane af Pinpacecr 
Blank 

Equals 

Plus 

Minus 

Asterisk 

Stash 

Left Parenthesis 
Right Parenthesis 
Comma 

Decimal Point 
Currency Symbol 
Apostrophe 

Colon 

Quote 

Ynderscore 


Ce EE ERE HEE BD OEP OTD CUED ORE WEE CURT GED RED WEE OT EEE GaED END BEN BUND tee GED EEE PED 


Character 


ett OR WTR HEED 4-00 OD te Ge oD OD weed be ee 


> we we oe we we at Oe ee tm we ae tes ee we + rr) 
+ ON ORK et ts NO ee ee ws ee ee ee ee eT 
Fe ee) ee et ee a eo er + ae 


The set of characters capable of representation In th2 processor Is 
yiven in Appendix A. 


Beled COLLATIUG SEQUENCE AND GRAPHICS. 


Note: Thra ouchout this sacstions S denotes the size of the processor's 
character sete See Appendix A for value of S. 


Character relational expressions are@ evaluated according to a 
collating saquencas determined by a collation._weight__table. A 
weaight table is a oana-dimensione!l Integer array of size Se Each 
element of the welght table has a value between zero and. S-1 
inclusive, The value of element it of the weight table is the 
collating _weiuht for the character with the character. code of ie 
The osharacter codes and gqraphic representations for all characters 
supported by the processor are given in Appendix Ace If cli) and 
e(j) are. characters and if and j' are their respective collating 
yvaightss then | 


c(i) «op. c{j) has the value true if and only if i'seop.j' has 
the value trues where «ope is any of tha relatione!l opsratorse 
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The value of a weight table element does not have to be unique 
within the table; i,@., saveral characters mey have the same 
collating weight. 


Collation may be directed by the fixed collation weiaht table or by. 


the. usercrspacifled. ctcallation._ walsht table. The tables ere 


predefined with the values given in Appendix Ae The fixed table may. 


not be modified bus: the program may access and modify the 
user~soeciflad table. A compfifer-call statement option or the 
collation control directive (3.7.3) determines which table specifies 
Gollation sequence for character relational expressionse 


The collating sequence used by the Intrinsic functions LGE» LGTy 
LLis» and LLT (16.10) is jndependent of both the fixed and 
useresoncifiad weight tahtes and is therefore unaffacted by either 
the compfler=ceall statement option or the collation control 
directive. The intrinsic function INDEX (16210) does not use. either 
collation weight table. The intrinsic functions CHAR and ICHAR 
(16.10) raturn yalues depandent upon the collation welght tables. 


A program may access or modify the user-specified collation weight 
table by using the procedures COLSEQ, CSOWMN or WTSET (16,122.75 
16412.9» 16212.8)-. 


3e1+6 BLANK CHARACTER. 


With the axception of the uses specified (3422429 342039 3039 489 
4olels 4e9elele L4s5e1les and 14.2522)% a blank character withtIn a 
program unfit has no meaning and may be used to improve” the 
appearance of the program units subject to the restriction on the 
number of consecutive continuation ltinas (343). 


302 LINES 


A line in a orogram unit is a sequence of 72 characters. All 
characters aust be From the FORTRAN character sets» except as 
described in 3e2ely 4e39 4e9Gelelsy 13062022 and 1l4e2ele 


Tha character positions in a Jine are called golumns and ere 
Nushered consecutively ls 2» through 72. The number indicates the 
sequential position of a character in the lines beginning at the 
left and proceeding to the right. Lines are ordered by the sequence 
in which they ere presanted to the processor» Thus a program unfit 
consists of a totally ordered set of characters. | 


Bedell CONUENT_ULINE 

A sopyant tine is any Iline that contains aC or an asterisk in 
column ls or contains only blank characters in columns 1 through 72¢ 
A comment fine that contains aC or an esterisk in column 1 may 
contain any character canable of reprasentation In the precessor in 
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3e2el COMMENT LINE 


columns 2 sual Tee 


A comment Jline dees not affect the executable program in any way and 
may be ysed to provide documentation, Certain special forms of 
conment lines control processor behavior. Thasé comment tines. are 
orocessor directives called Cicdirestives (3.7). 

Comment tines may appear anywher® in the program unite Comment 
lines may precede the jnjtial line of the first statement of any 
program unit. Comment lines may appear between an initial line and 
its first continuation line or between two continuation linese 


3efe2 INITIAL LINE. 


An initial Line is any line that is not a comment line and contains 
the character blank or the digit O in column 6. Columns 1 through 5 
tay contain a statement label (3.4)5 or each of the columns 1 
through 5 must contain the character biank. 


3.203 CONTINUATION LINE» 


A gontinustion Lins is any tIne that contains any character of the 
FORTRAN character sat other than the character blank or the digit 0 
in column 6 and contains only blank characters In solumns 1 through 
5, A statement must not have more than nineteen continuation Sines. 


303 STATEMENTS 


Tha statemants of tha FORTRAN ltanoyase are described In Sections 7 
throush 17 and are used to form program units. Each statement is 
sritten in columns 7? through 72 of an initial line and as many as 
nineteen continuation linese An END statement is written only in 
coluans 7 through 72 of an initial fine. No other statement in a 
program unit may have an initial line that appears to be an_ END 
statements Mote that a staterent nust not contain more then 1320 
characterse Except as part of a logical IF statement (11-5) or a 
Jogical WHERE statement (11.15)» no statement may begin on a line 
that contains any part of the previous statement. 


Blank chearactars precadings uithin»s or Following a statement do not 
change the Interpretatjon of the statements» except when they appear 
within the datum strings of character constants,» in Hollerith 
sonstantss or tha H or apostrophe edit descriptors tn FORMAT 
statements. Wowevears blank characters do count as cheracters In the 
limit of total characters allowed in any one statement. 


3e% STATEGENT_LABELS 
Statement labels provide a means of referring to individual 
statements» Any statement may be Jlabeleds but only labeled 


executable statemants and FORMAT stataments may he referred to by 
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the use of statement labels. The form of qa statement Jabdel is 2 
sequence of one to five digitss one of which must be nonzero. The 
statement ighbel may be placed anywhere in columns 1] through 5 of the 
inittal tine of the statement. The same statement Jlabel must not be 
jJivean to mors than ona statement in a program unite Blanks and 
leading. zeros are not sIgniflcant in distinguishing between 
statement labelse 7 


3.5 ORDER_OE_SIATENEMTS AND_LINES 


A PROGRAM statement may appear only. as the first statement of a main 
programe The first statement of a subprogram must be either a 
FUHCTIANs SUBROUTINE» or BLOCK DATA statement. . 


Within a progran unit that permits the statements: 
(1) FORMAT statements may appear anywhere3 


(2) all specification statements must precede all DATA 
statementsys NAMELIST statementss statement © function 
statements, and executable statements3 


(3) all statement function statements must precede all executable 
statenonts;3 


(4) DATA statements may appear anywhere after the specification 
statements; 


(5) ENTRY statesents mav appear anywhere except between ai block 

_- TF statement and its corresponding END IF statements between 
a block WHERE statement and its corresponding END WHERE 
stateaents or between a DO statement and the terminal 
statement of its DO-loop3; and 


(6) A HANELIST statement (13.14) may appear anywhere after the 
spacifiecation statements, but must precede any deta transfer 
input/output statement that refers to the NAMELIST group name 
(13142 19.2.12) that is specified by the NAHELIST statement. 


Within the svecification statements of 34a program units, IMPLICIT 
statements must precede all other specification statements except 
PARANETER statements. Any specification statement that specifies 
tha type af a symbolic name of a constant must precede the PARAMETER 
statement that defines tnet particular symbolic name of a constant; 
the PARAMETER statement must precede all other statements containing 
the symbolic names of constents that are defined in the PARANETER 
Statamente 


The Jast Jine of a program unit must be an END statement. 
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Figure 1 


Required Order of Statements and Comment Lines 


+ 
ie i PROGRAMs FUNCTION, SUBROUTINEs or ' 

4 ‘ BLOCK DATA Statement : 
} fe me mee rn a es sa fee me ae ee ete ene ee ooo + 

H ; } i IMPLICIT 4 

H ; 1 : Statements ; 

} ' : PARAMETER fe ce en eae ee oe ae ee am ae ae + 

> Comment ' FORMAT } Statamants . } Other H 

: | : and H ' Specification} 

: Lines i ENTRY H ; Statements 1 

; ? SEAR AMENTS bee mmr ee ee 3 ae me ee ee om Oe a a + 

: and H H + Statement H 

H : : DATA and + Function : 

i C&é-directive: : WNAMELIST i: Statements : 

: i am > Statamants tec mer cre n= + 

i Lines : 4 ; Eyecytable } 

! i H ! Statements 3 

pe re ee en ee me we ner et one me Spe ee ee ee ee ee ee ere fa at ne a et te et nt fee te ee ee ee + 
: END Statement H 

+ 


Figure 1 is a diagram of the requiréd order of statements and 
comment lines for. @ progran unite Vertical dines delineate 
varieties of statements that may be interspersed, For examples 
FORMAT statements may be interspersed with statement function 
Statements and executable statements. Horizonte lines delineate 
verleties of statenents that must not be Interspersed» For examples 
statement function statements must not be interspersed with 
executable statements. Note. that an .END statement is also an 
axacubahia statament and must appear only as the ftast statement of a 
program unite 


3.6 NORMAL EXECUTION SEQUENCE AND_TRANSFE2 DE CONTROL 


Nacmadl execution segue nee is the eaxacution of executable statements 


in the order in which they appear in a program unit. Execution of 
an #xacubabia prozran hegins with tha execution of the first 
executable statement of the main programe When an external 


procedure specified in a subprogram is referencedy execution begins 
with the first executable statement that follows the FUNCTION» 
SUBROUTINE » or ENTRY statement that specifies the. referenced 
procedure as the name of a procedure, 


A transfer of cootrol is an alteration of the normel execution 
sequence, Statements that may ceuse a transfer ef contro! ere: 


{1) 60 T9 
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(2) cee IF 
(3) RETURN 
(4) STOP 


(5) An input/output statement containing an error specifier or 
end-of-—file specifier 


(6) CALL with an elternate return specifier 
(7) A loyical IF statement containing any of the above forms — 
(3) Block IF and ELSE IF | 
(9) The fast statements, If anys of an IF-block or ELSE IF-block 
(10) po | 
(11) The terminal statement of a DO-loop 
{13) END 


The effect of. these statements on the execution sequence is 
dlascribed in Sections ll, 135 and 16. 


Tha normal execution sequence Is not affected by the appearance of 
nonexecutable statements Or comment lines between executable 
statements Execution of a function referance or a CALL statement 
is nat Cone der eo a transfer of control In the erogram unit that 
contains the references except when control is returned to a4 
statement identified by an alternate return specifier in a CALL 
statemant., Zxecution of a RETURN or END statement in a referenced 
procedures or execution of a transfer of control within a referenced 
procedures is not considered a transfer of control] in the program 
unit that contains the references 


In the execution of an executable programs a procedure subprogran. 


must not be referenced a second time without the prior execution of 
a RETURN or END statement in that procedure. 


A CSedircoaceszive is a special form of comment Jine that affects 
processor behaviore This effect can be suppressedys and the 
Chedirective treated as a comment lines by selection of the 
appropriate FORTRAN control statement option (see host aperating 
systam reference manual for detatlIs). <A Ca-directive is a gontrol 
dicectivee A control directiva affects an aspect of the processor's 
Interpretation of those tines fFollawing the directive and preceding 
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pone Te a Le eT 


either a subsecyent directive modifying the same aspects if such a 
tirective appears, or the end of the program unite The aspects of. 
interpretation that may be controlled are: 


(1) listing of the program and associated processor-produced 
informations 


(2) specification of program lines to be processed or idnoreds 
(3) charactar data compare collation tabies and 
(4) minimum trip count for DQO-loops. 


Aspect (1) is listing ..icontrol» aspect (2) is gonditional 
compilations, aspect (3) is collation._controls and aspect (4) is 
DO-loop_contral. 


The general form of a control directive is 
CS kavmard£ (al=g]lspl=g}].6.) ILCs] Lab) 


wheres 
keyword is one of LIST. IFs ELSE» ENDIF» COLLATE or DA. 
The keyuord may begin In any column starting with 
column 7. 


p is a parametere Dapending upon the keyword that 
appearss one or more parameters may be specified. 


Cc is an integer constants or symbolic name of an 
integer constants with a value of zero or ones 
Depending upon the parameter ps the constant elther 
may or must not appeare 


dad is a diractive Lehel.e Dependina upon the keyyword 
that appearsy a directive label may. be specifiede 
If a directive Jabel appears and no parameters are 
prasants, a comme must separate the keyword and the 
active flahel. 


The letter C in column 1 together with the character 2 in column 2 
identify a ling as a C$ediractive Jinee Such a Jline will be 
Interpreted as a coanment only If the appropriate FTN control 
statement option is selected. The entire directive must appear on a 
single tine. A C3-directive interrupts statement continuations 
unless it is being intarpreted as a comment. 


3.7.1 LISTING CONTROL 


A listing control directive has tha keyword LIST. It must have’ the 
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C& LIST (plegllLopleg les.) 


wheres . 
p is Sp Gy Ry Ay FH or ALL 


Ga is ¢ constant or the symbolic name of a constant 
The constant is optional for. all parameters; its absence’ Is 
aquiyvalant to the appearance of a constant with the value cone. p=0 
disables switch p33 p=l enables switch pe 


ALLE=c] ts equivalent to STeg],0Tecl,sRT=glyAlHacg is Ml=c] 


A listing control directive found by the processor to be in error 
results in a diagnostic message. 


The list option switches offer the following control 
S ~- source lines are listed when @nablade 
OQ - generated object code is listed For statements processed when 
{ 
R= symbol references are accumulated for the cross reférence list 
when anabled. Symbols with no accumulated references wlll not 
appear In that list; no accumuJation for an entire program 


unit suppresses cross reference liste 


A - the symbol attribute fist is generated If this switch Is 
anabled when the END statement is processed. 


4 =—- the DD toop and common/equivalence map lists are generated if 
this svitch ts anabled whan the END statement is processede 


37.2 CONDITIONAL COMPTLATION 


A condittionel compltlation directive has a keyword which is one of 
IF» ELSE or ENDIF. Such a directive controls whether the tines 
immediately follorning the directive are to be processed or ignored 
by the processore 
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An Lk=dires sive has tha Porms 
ce on ane 
wheres a. _ 
, 2 is an extended logical constant expression. If oa 


symbolic name of a constant appears, it must have been 
previously defined in a PARAMETER statement of the 
program unit in which the IF-directive aeopears 


dab is an. optional directive label, It must be a symbolic 
namee Its use as a directiva tabe!l in aieconditional 
compilation directive does not affecty and is not 
affected bys its use for any other purpose in the 
program unit 


An &LSE-directive has the form:. 

C% clLSctCslsahbd | 
where: tab is as for an IFe-directive 
An ENDIEsdirestivea has the form: 

5 SNDIFC stabi 
whareat jJahbiis as for an IFedirective 
For each IF=-directive there must appear exactly one ENDIF-directive 
later in the same program units and for each ENDIF<directive there 
must appear exactly one IF-directive earlier In tha same program 
unite Between an IF-directive and its corresponding ENDIF-directive 
will appear zero or more fines called a conditional. seguencee A 
conditional sequence may optionally contain one ELSE-directive 


corresponding to the IF-directive and ENDIF-directive delimiting the 
conditional sequence. An ELSE-directive may appear only within a 


conditional sequence. A conditional sequence may not contain more 
than one ELSE-directiva uniess it contains another conditional 
sequences If an elSte-directive is contained within more than one 
conditional sequences, the ELSE-directive corresponds to that 
IFeeNDIF pair which delinits the smallests 1.¢e.-innermostys 


conditional sequence containing the ELSE-directive. 


If corresponding IF and ENDIFs or IFs ELSE» ENDIF directives haye a 
directive labels», ft must be the same directive tabel. No other 
restriction applies to directive ftabels on conditional directives. 
There is no requirement that any conditional directive have a 
diractive label. The same directive lahel may be used on more than 
yne saquance of corrasponding conditional directives jn a single 


orogram unity including the case of condjtional directives whose. 


conditional sequence contains other conditional directives with the 


CONTROL DATA PRIVATE 


we we 


- -_ | | a 3-11 
Control Data Corporation Standard FORTRAN 
| . 83/06/30 


309 CHARACTERSs LINESs AND EXECUTION SEQUENCE 
3e7%e2 CONDITIONAL COMPILATION 
same djrective label. 
A conditional! sequence may contain any nunder oF properly 
corraespondinz conditional directives, cand therefore other 


conditional. sequences. If two conditional sequences contain’ the 
same lines one conditional sequence must lie wholly within the other 
conditional sequence, 


“A conditional compilation directive found by the processor to be in 
arror results in a diagnostic messaaqea, 


3e7.2.1 Processor Control 


Processing of an IF-directlve causes evaluation of the expression ea» 


Tf an IF-directive is processed by the processor and the value of e 
is trues following tines are processed as if the IF-directive had 
not apneareds unless a corresponding ELSE-directive is encountered. 
In this casey lines between the ELSt-directive and the corresponding 
ENDIF-diractive are ignored by the processor. If an IF-directive is 
processed by the processor and the values of 2 Is falses following 
lines are jgnored until. the corresponding ENDIF-directive as if they 
had net appearads unless a corrasponding ELSE-directive is 
encountered, In this casey lines between the ELSE-dtrective end the 
corresponding ENDIF~-directive are processede Note that conditional 
directives will be ignored if they appear within ignored sequences 
of Jinese A Sine ignored hy the processor must be a line acceptable 
to the procassor If the line were not ignored. 


307.3 COLLATION CONTROL 


A collation control directive has the form 
cs CULLATE{2) 


where: o jis FIXED or USER. 

The collation control directive spacifies whether collation of 
character re2alational eypressionss and the values returned by the 
CHAR and IC°IAR intrinsic functionss are directed by the fixed or 
usarespacified weight table (341.5). 


A collation contro! directive directs the interpretation. of 
character relational expressions and of CHAR and ICHAR intrinsic 
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function -<SPerences in the lines following the directive and 
preceding another collation control directive, if anyy or the END 
statement of the program unite In the cas® of 4 character 
relational expression or a CHAR or ICHAR Intrinsic function 
reference in a statement function statements the collation that 
applies is that in effect for the Jine or lines containing a 
refarence to the statenent function, Consider the example: 


PROGRAM P 

LOGICAL LSF ee 
. CHARACTER*59 Xs Yo Ss T 
Cs COLLATEC(USER) 

LSF(XsY) = XeLTeY 


C3 COLLATE( FIXED) 
IF(LSE(SsT)) A=1e0 


The reference LSF(SsT) results in an evaluetion of the character 
relational expression SeLTeT with the collation that of the fixed 
weight table. 


A callation control directive found by the frocessor to be in error 
resylts in a diagnostic message, 


Selo DOSLODA_CONTROL 


A O0D-foop control directive has the form 


Cu DO(af=2]) 


where: 
p is OT 
G 18 2 constant or the symbolic name of a constant 
The constant is optional} its absance is equivalent to the 


appaarance of a constant with the value one, 


The D0-loop control directive modifles the state of. the DO=-Inop 
suiltch. The suiteh is inlktially se (or reasat) when the 
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corresponding QONE_TRIP_LDO option is (or is not) requested at 
processor invocation. A DO-!oop control directive switch selection 
overrides the corresponding ONE_LTRIP_DO option request. 


The OT parameter controts the minimum trip count. If oT is set 
{(OT=1l)» the minimum trio count for DO-loops is onee If OT Is reset | 
(OT=0), the minimum trip count For Df-loops is zero. 


A Dfi=toop control diractive affects the internretation of only those 
DOfoops whose DI-statements follow the directive in the same 
program unit. | 


A DO=-loop control directive found by the processor to be in error 
results in a diagnostic meassegee is , 
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400 DATA TYPES AND CONSTANTS 

4el1 DATA_TYPES 
The nine types of data are: 

(1) ravages 

(2) Real 

(3) Double precision 

(4) Conpiax 

(5) Logical 

{6) Character 

(7) Half precision 

(8) Bit 

(9) Boolean 
Each typa Is differant and may have a different internal 
representation. The type may affect the Interpretation of the 


operations involving the datum. 
4elel DATA_TYPE_SE_A_NAUS. 


The name emoloyed to identify a datum or a function also identifies 
its data typa.e <A symbolic name representing a constants variables 
arrays or Function (except a generic function) must have cniy one 
type for each program unite Once a particular name is identified 
with a particular type in a program unit, that type is implied for 
any usage of tha name in the program unit that requires a typee 


4.1.2 TYPE RULES _EOR DATA AND PROCEDURE IDENIIEIERS. 


A symbolic name that identifies a constants variables arrays 
external functions or statement function may have its type specified 
in a type~statement (8.4) as integery realy double precisiony half 
precisions hits compleaxs ltogicals Booleany or charactere In the 
absance of an explicit declaration In a type-statements the type Is 
implied by the first letter of the namee A first Jetter of Is Js Ky» 
Ly» My or HW implies type integer and any otner letter impiies type 
reals uniéess an IMPLICIT statamant (8.5) is used to change the 
default implied type. 
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pelee ies RULES FOR DATA AND PROCEDURE IDENTIFIERS. 


The data type of an array element name is the same as the type. of 
_jts array namee 


The data type of a function name specifies the type of the datum 
supplied by the function reference in an expressione 


A symbolic name that identifies a specific intrinsic function in a 
program unit has .a@ type as specified In. 16410. An explicit 
type-statement is not required; however, it is permitted. A generic 
function name does not have a predetermined type}; the result of a 
generic funetion reference assumes a type thet dapends on the type 
of the arguments as specified In 16.19. If a generic function name 
appears in a type-statements such an appearance is not sufficient by 
itself to remove the generic properties from that function. 


In a progran unlt that contains an axternal funetion references the 
type of the function is determined in the same manner as for 
variables and arrayss | 


Tha type of an external function is spacified impllcitiy by its 
names exolicitly in a FUNCTION statements or explicitly in a 
type-statement. Note that an IMPLICIT statement within a function 
subprogranm may affact the type of the external function spaciflad in 
the subprograme 


A. symbolic name that itdentifies a main programs subroutines common 
blocks, or block data subprogram has no data type. 


4e1.3 DATA_TYPE PROPERTIES. 


The mathematical and representation properties for asch of the data 
types are specified in the following sections. For reals double 
precisions half precisions and integer datas the value zero is 
considered neither positive nor negativee The value of a signed 
zero is the same as the yalue of an unsignad zeroes 


4e2 CONSTANTS 


A constant is an arithmetic constants logical constants bit 
constants Boolean constants ar character constant. The value of a 
constant does not change. Within an executable programs all 
constants that have the same ®orm have the same yvalue@e 


4e.2e1 DATA_TYPE_DFE_A_CONSTANT. 
The form of the string reprasenting a constant specifies both Its 
yaluea and data cypee A PARAMETER stateanent (8.6) allows a constant 


to be given a symbolic name. The symbolic name of a constant must 
not be used to form part of another constants | 
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4e2e2 BLANKS _IN_CONSTANIS. 

Blank characters occurrding In a constants except in a character 
constant or a Hollerith constants have no effect on the value of the 
sonstante 


4203 ARTTHHETIC CONSTANTS. 


Integer, reals double precisions half pracisions and complex 


constants are arithwetic constants. 
4e2e3e1 Sians_of Constantse 


An unsianed sanstant Is a constant without a leading signe A signed 
constant is a constant with a leeding plus or minus sign, . An 
optionallye sianed canstant is 42 constant that tay be elther signed 
or unsigned. Integers realy double precisions and half precision 
constants may ba optionally signed constants» except uhere specified 
otharwise. 


4.3 INTEGER TYPE. 


always an exect resresenteation of an integer 
sume a positives negatives or zero valuee It may 
gral value. An integer datum has one numeric 
storage Sequences 


An integer datum i 
Value. It may a 
int 


assume only an in 
storage unit in a 


3 
$ 
eR: 


4e3e1 INTEGER_CONSTANT. 


The form of an [integer constant is an optional sign followed by a 
nonempty string of digits. The digit string is interpreted as a 
decimal number. 


404 REAL_TYp= 


A real datum is a processor approxjmation to.the value of a real 
numbere It may assum2 a positives negatives or zero valuee A_ real 
datum has one numeric storege unit In a storage sequence. 


4e4%el BASTC REAL CONSTANT. 


The form of 8 hasia CLaal constaot is en optional signs an Integer 
parts a decimal pointy and a fractional party in that ordere Both 
the inteyer part end the fractional part are strinas of digitss 
elther of these parts may he omitted but not both. A basic real 


constant may be written with more digits than a processor will use 


to approximate the value of the constant. <A basic real constant is 
intarpretad as a dacimal numhar. 
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4e4s2 REAL_EXPOUENT. 


The form of a geal exponent is the letter £ followed by = an 
optionally signed integer constant. A real exponent denotes a porer 
of tene , 


404.3 REAL_COUNSTANT. 
The forms of a raal constant are: 

(1) Basic real constant 

(2) Basic r#al constant follored by ao reel exponent 

(3) Integer constant Followed by 4 real exponent 
The value of a real constant that contains a real exponent is the 
product of the constant that precedes the E and thea power of tan 
indicated by the Integer following tha E. The Integer constant part 


of form (3) may be written with more digits than a processor will 
use to approximate ele value of the sconstante 


465 DOUBLET _PRACTSION TYPE 


A doubts precision datum is @ processor approximation to the value 
of 2 real number. The orecislens although not specifieds must be. 
greater than that of type real. A double precision datum may assume 
a positives. negative, or zero valuee A doubte precision datum. has 
two consecutiye numeric storage units in a storaje sequences 


4.5.1 DOUBLE PRECTSTON_EXPONENT. 

The form of a doubles atecision @xeran2nt is the lettar D follored by 
an optionally signed integer constant. A double precision exponent 
denotes a power of ten, Note that the form and interpretation of a 


Joyhlo pracision exponent ars identical to those of a real exponents 
axceat that the letter D is used instead of the letter E. 


4 e5e2 DQUB PREC LS TON CONSTANT. 
ne forms of a double neacision Sonstaot are? 
{1) Basic real constant followed by a double precision exponent 
(2) Inteyear constant followed by a double preacision exponent 
The value of a double precision constant is the product of the 
constant that precedes the D and the pouer of tan indicated by the 
integer following tne De The Integer constant part of form (2) may 
be written with more digits than a processor wil! use to approximate 


thea value of the constant. 
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4.6. COMPLEX Tye E 


A complex datum is a processor approximation to the value of a 
conofex number. The representation of a complex datum is in the 
form of an ordered pair of real datas The first of the. pair 
represants the real part of the complex datum and the second 
represants the Imaglnary part. Each part has the ssme degree of 
approximation as for ae real datum. A complex datum has two 
consecutive numeric storage units in a storage sequences the first 
storage unit is the real Part and the second storage unit Is the 
Imaginary part. 


4e601 COMPLEX CONSTANT 


The Gr of q csomolax constant Is a left parenthesis followed by = an 
ordered pair of real or integer constants» or symbolic names of real 
or Intager consvantss separated by a commay and falfowed by a right 
parenthesis, The first constants or symbolic name of a constants of 
the pair is the real part of the complex constant and the second is 
the imaginary part. 7 | | 


407 LOGICAL _ TYRE 


A logical datum may assume only the values true or fatse. A logical 
dSatum has one numeric storage unit in a storage sequence, 


The forms and values of a lodicsil sonstapnti are: 


1 

) 

fa meso ae sae ee a tne ne cr ees ese me s 
i »TRUE. : 

i eFALSEe : false 
+ + 


ne EN een OG O0t te Oe en ED ee ow 


409 CHARACTIR_IYPE 


A character datum is a string of characterse The string may consist 
of any Gharacters capable of representation In the processore The 
blank cnaracter is valid and significant In a character datume The 
length of a character datum is the number of characters in the 
string, <A character datum has one. character storage unit in a. 
storage sequence Yor each cheracter in the strings The maximum 
nunber of characters in a character datum Is 2**16-1 (2**16—] = 
O59 535). 


Sach character In the string has a character position that Is 
numbered consecutively ls; 2s 33 etc, The number indicates the 
seguential position of a character in the strings beginning at the 
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left and proceeding to the right. 


4eS.1 CHARACTER COUSTAUI. 


The form of a character constant is an apostrophe followed by a 


nonampty string of characters followed by an apostrophe. The string 
may consist of any characters capable of representation tn the 
processors. Note that the delimiting apostrophes are not part of the 
datum represented by the constant. An apostrophe within the datum 
string is represented by two consecutive apostrophes with no 
intervening blanks. In a character constants blanks. embedded 
between the delimiting apostrophes are significant. 


The length of a charscter constant Is the number of characters 
betuHeen the delimiting apostrophesy except that each pair of 
consecutive apostrophes counts as a single character. The 
delimiting apostrophes are not counted. The fength of ai echéracter 
constant must be greater than zero. 


4.9 BOOLEAN TYPE 


A Boolean datun is a string of 
positions belonging to one numer 
hes one numeric storajze unite 


hitss where op is the number of bit 


po bit 
ic storage unite A Boolean datum 


469.1 BOOLEAN CONSTANT 


A Boolean constant is a Holterith constants an octal constants, or a 
hexadecimal constante 


4.9.1.1 Hollerith Canstant 


A Yollerithu constan: has one of four forms: 


R wen 
we 


where: 
oO 18 an unsianeds nonzero» intauyer constant not greater 
than gs where gag is the maximum number of characters that 
ean be rapresented hy the processor in one numeric 
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4e9.1.21 Hollerith Constant 


storage unit. 


i> 


is a string o7 gp characters. The string may consist of 
any characters capable of representation in the 
processore Blanks in a .Hollerith constant afe. 


significant onty in this strings 


The datum represented by a Hollerith constant is determined by the 
internal processor code for the characters in the string £ and the 
form of fill indicated by the form of the constant. By F£ILI is 


meant the string of bit values supplied by the processor either’ to. 
the eft or rioht of fy if any is required, to complete the datum. 


The datum is complete when all its bits are determined. 


For the pilf and “f£% formss the string £ is Jeftejustified in the 


datum and the fll is asostring of bit values constituting the 
internal processor code for a string of blank characters. | 


For the L'£" forms the string £ is left-justified in the datum and 
the Fill is a string of O bit values. 


For the R"£" forms the string £ is right-justified in the datum and 
the fill is a string of O bit values. 


The character "within "E" Is represented by a string of two 
consecutive "® characters within £fe | 


Oe eer, Octal Constant 


An actal constant has the form: 
Q"bC bless" 
where: h Ts an octal digit. 


The datum represented by Aan octal constant is the string of bit 
values obtained by mapping each octal digit Into Its equivalent 
three-digit binarw number system values right-justified with a fill 
which is a string of 0 bit valuese The number of bit values in the 
resulting string must not be aranater than the number of bit 
nositiuns In one numeric storage unit. Note that a blank character 
is not significant anywhere within an octal constante 
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4e9e1.3 Hexadecimal_Conskant 


A hexadecimal_constant has the form: 
Z"zEzZ1e00" | 
wheres Zz is a hexadecimal digite 


The datum represented by a hexadecimal constant is the string of bit 
values obtained by mapping each hexadecimal digit into its 
aquivalent Four-digit binary number systam values, right-justified 
with a fll which Is a string of O bit values. Thea number of bit 
values in the resulting string must not be greater than the number 
of bit positions in one numeric storage unite Note that a blank 
character is not significant anywhere within a hexadecimal constante 


4010 HALE PRECISION TYPE 


A half pracision datum Is a processor approximation to the veltue of 
a real number. A half precision datum may assume ai positives 
negative, or zero value. A half precision datum has onerhalf of a 
numeric storage unit in a storage sequences 


401001 HALE _ PRECTSION EXPONENT 


Thea form of a balf presision axpaneart is tha letter S followed by an 
optionally signed integer constant. A half precision exponent 
denotes a power of tene Note that the form and interpretation of a 
half precision exponent are identical to those of a real exponents 
or double precision exponents except that the Jetter S is used 
instead of the letter £» or De 


4o10.2 HALE _PRECISTON_COUSTART 


The forms of a half precision constant are: 

(1) baste réal sonstant followed by a half precision exponent 

(2) intecer constant followed by a half precision exponent 
The yalua or aéoehalf preeision constant is the product of the 
constant that orecedes the S and the power of ten indicated by the 


integer following the S-. The integer part of form (2) may be 
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ardtten with more digits than a processor will use ~ to. 


the value of the constant, 


eld BITILYRE 


A bit datum may assume only the values B"0" and B™1", 
has one bit storage unit in a storane sequence. 


4s1llel BLI_CONSTANT 


4=9 
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approximate 


A bit datum 


The farms of a bIt constant are B"0" and Bi", Note that aie blank 
character is not significant anywhere within a bit constant, 
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530 ARRAYS AND SUBSTRINGS 


An atrayv is a (possibly empty) sequence of datae An array element 
is one member of. the sequence of data. An array pame Is the 
symbolic name of an arrays An array element name is an array = name 
qualified by a subscript (504). | 


An array name not qualified by a subscript identifies the entire 
sequence of elements of the array in certain forms where such use is 
parmitted (5.69)3 howevers, In an EQUIVALENCE statements an array name 
not qualified by a subscript identifies the first element of the 
array (8.2.4), 


An array element name identifies one element of the sequence, The 
subscrjpt value (Table 1) specifies the element of the array being 
identified. <A different array element may be identified by changing 
the subscript value of tne array element name. 


An array nane is local to 2 program unit (19.1.2). 


A substring is a contiguous portion of a character datum. 


5.1 ARRAYS _AND_ARRAY_SECTLONS 


Delel ARRAY _UABE_AUD_ABBAY SECTION REE ERENCE | 

Whenever an array namey unqualified py a subscripts or an array 
section name is used to designate the whole arrsys or an array 
sections the appeerance of the array neme or array section name 
implies that the number of values to be processed is equal to the 
number of elements in the array or array section and that the 
alaments of the array or array section are to ba processed In 
sequential erders axcept In the evaluation of array expressions and 
in array assignment statements. 


An assumed size array may not be used in an array references, An 
assumed siza array section reference may not be usad In an array 
reference if a section selector of * or -* is used in the fast 
subscript position. 


5e2 ABRAY_ DECLARATOR 
An arcay declarator specifies a symbolic name that identifies an 
array within @ program unit and specifics certsin properties of the 


array. Only one array declarator for an array name {s permitted in 
a program unite. 
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The form of an array declarator is?! 


a (d Codleee) 


where? a is the symbolic nema of the array 
g is a dimension declarator 


Thea number of dimansions of the array is the number of dimension 
flectarators in the array declarator. The minimum number. of 
dimensions is one and the maximum is sevene 


SeQelel For ofl s_ Dimension Declarcator 
The form of a dimension declarator is one of the forms: 


[d1:] 42 
Cdl: 


vherat dl is the lower dimension hound 
d2 is the upper dimenston bound 


The lower and upper daimansion bounds are arltthmetic or Boolean 
Scalar expressloanss called dimension bound expressionss in which 
each primary is a constants, symbolic name of constants,s dummy 
argument nane of 2 variable or arrays or any tnatrinsic function 
reference which ts afltowed in an extended integer constant 
expressione A dimension bound expression must be sceler and of 
integer type. An actual argument to an intrinsic function reference 
In 4 dimenston bound expression may be any entity that is allowed in 
an extended constant expression or that is allowed in a dimension 
Hound exprassion for an adjustable array declarator. The upper 
dimension bound of the last dimenston must be an asterisk in an 
assumed-size array declarator. A dimension bound expression must 
not contain a nonintrinsic function or array element referance, 
Variablas may appear in dimenstlon bound exprassions only In 
adjustable array declarators and as actual arguments to intrinsic 


function references, Array names may appear in dimension bound 
axpressions only as actual arguments to intrinsic function 


references, 


In a dimension bound expressions the symbolic name of a constants a 


vVariabl®s, or 2n array must be explicitly typed prior to ts 
appaarance In the dimension bound expressione If it ids not 
explicitly typed prior to its appearance in the dimension bouncd 
expressions it will be typed using its initial letter and the 
default impliad type rulas then In effacte Tf an entity in a 
dimension bound axpresstion is typed by implied typingy any 
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Se2elel Form of a Dimension Declarator 


subsequent explicit typing must confirm the implied type. 


No array name appearing in an array declarator in a specification 
statement may be referenced in a primary of any expression within 
the samé specification statement. For examples 


REAL A( LO» EXTENTCAs1)) 
is prohibitade 
5e2ele2 Valus_of_Dinansjon_Bounds 


If a dimension bound gi is a Bool@an @xpressions the value used is 
INT{di). Tne value of elther dimension bound may be positivas, 
neyjyatives or zeroe If onty the upper dimension bound is specifieds 
tha yalue of the tower dimension bound is ones. If the dimension 
declarator Js of the form [dal]! and the lower dimension bound is 
omitted,y its value is onee An upper dimension bound of an asterisk 
is always greater than or equal to the louar dimension hound. 


5.2.2 KINDS_AND OCCURRENCES OEF_ARRBAY DECLARATORS 


Each array iWacitarator is either a constant array declsrators an 
adjustable array declarators an assumed size arraw declaratory or an 
-assumed=-shape array deciaratore A Gonostant array declarator is an 
array declarator In which each of the dimension bound expressions Is 
an integer constant expression (601.321). An adjustable array 
declarator is an array declarator that contains one or more 
varfables. An assumed-size array deaciaraser Is a columnyise 
assumed=size aLLay declarator or a fonwise assumead=-size array 
dectarators A columnyise assumed-slzea array deactarator Is a 
constant array declarator or an adjustable array declarators except 
that tne upper dimension hound of the last dimension Is an asteriske 
A coywwlse assumad-slze array declarator is a constant array 
feclarator or an adjustabse array declarators, except that the upper 
dimension bound of the first dimenston is an asteriske An 
assumed-shape array gdeclaratar is a constant array declarator or an 
adjustable array cdeclarators, except that one or more of the 
dimension declarators has a speaeclficaton af the upper bound omitted. 


Sach array declarator is either an actual array declaratory, a dummy 
array declarators or an allocatable array decleratore 


5e2e2e1 Actual Array Declarator 
An actual acray dacslaratec is an array declarator in which the array 


name. is not a dummy argument. Each actual array declarator must be 
a constant array declarator.e An actual array deciarator is 


permitted in a DIMENSION statement» a type-statements or a COMMON. 


statemant (Section 8).. 
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5e20202 Dumayv Array Daclarator 


A dummy actay declactator is an array daclarator in which the array 
name 1s a dunny argument or Is the name of the errey-valued function 
in which the array is being declarede A dummy array declarator may 
be a constant array declaretors an adjustable array declarators an 
assumed-shape array decilarators or an assumed-slze array deciterator. 
A. dummy array declarator is permitted in. a DIMENSION statement or a 
type=-statement but not in a COMHON statement. A dummy array 
Jectarator may appear only in a function or subroutine subprogram. 


5222223 Allocatable Array Declarator 


An allossatabls array deaslarator ts an array declarator In which the 
array name is not a dummy argumente An allocatable array declarator 
must be an assumed~shape array declarator with both upper end florer 
Jimansion bounds omitted For every djmens ione 


543 PROPERTIES _OF_AN_ARRAY 
The following properties of an array are specified by the array 
declarator?: the number of dimensions of the arrays the size and 


bounds of each dimensions, and therefore the number of array 
elements. 


The propertiss of an array in ® program unit are specified by the 
array declarator for the array in that program unit. 


5e3el DATATYPE _DE_AN_ARRAY_AND_AN_ARRAY_ ELEMENT 


An array nane has 2 data type (401.1). An array element name has 


the same data type as the array name. 


De3e2 DIMENSTONS_DE_AN_ARRAY 


The number of dimensions of an array is equal to the number of 
dimension declarators in the array daclaratore 


The siza of 5 dimension ts the value: 
NAX(d2-g1l+1ys 0) 
whereas dl ois the value of the lower dinenston bound 
d2 is the value of the upp2r dimension bound 


Note that If the vatue of the tower dimension bound is oney the size 
of the dimension is NAX(d220). 


Thea size of a dimenslon whose upper bound is an asterisk is not 
specified. The size of a dimension of an assumed-shape array (for 
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ahjch the dimension bound expression is of the form [gl]: is 
MAX(sawdl-1s90). whera 58 is the size ef the corresponding dimension 
of the associated actual argument. 


The number and size of dimensions in one array. decilerator may ba 


different from the number and size of dimensions {n another array 
declarator that is associated by commons equivalences or argument 
associations except as prohibited by the table in section 8e2.23 and 
by seetion 16.49.3436 


30323 STIZE_OF_AN_ABRAY 


The size of an atrtay is equal to the number of alements in the 
array, The size of an array is equal to the product of the sizes of 
the dimensions specified by the array declarator for that array 
names The size of an assumed=size dummy array (5-8) is determined 
as follows: . | 


(1) If tha actual argument corresponding to the dummy array Iisa 
noncharacter array names the size of the dummy array is the 
size of the actual argument arrave 


(2) If the actual argument corresponding to the dummy array name 
is a noncharacter array element name with a subscript value 
of ¢ in an array of size x» the size of the dummy array is x 
+ 1- £. 


(3) If the actual argument is ae character array names character 
array; element names or character array element substring name 
and begins at character storage unit © of an array with ¢ 
character storage unitss than the size of the dummy array fs 
INT( (a + 1 - £) / Lnds where In is the length of an element 
of the dummy arr aye 


If a colunnywtise assumed-size dummy array has yn dimensionsy the 
nproduct of the sizes of the first g-1 dimensions must be Jess than 
or egual to the size of the arrays as determined by one of the 
immediately preceding rulese If a rowwise assumed=size dummy array 
hes go dimensionss the product of the sizes of the fast g-l 
dimensions must be Jess than or equal to the size of the arrays as 
determined by one of the immediately preceding ruleéss , 


The .stlze of an allocatable array Is spectfled by an ALLOCATE 


statement. 

50344 ARRAY CLOUENT_ ORDERING 

The alamants of an array are ordered jn a sequence (2.1). An array 
element name contains a subscript (5.5.1) whose subscript value 


(5,523) determines which elament of the array is identified by the 
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array element name. The First element of the array has a subscript 
value of one; the sesond eleamant has a subscript value of two3 the 
fast element has a subscript value egual to the size of the arrays 


Whenever an array name unqualified. by a subscript is used _ to 
designate the whol@® array (5.9)s tha appéesrance of the array name 


implies that the number of values to be processed Is equal to the. 


number of elements in the array and that the elements of the array 
are to be taken in sequential order except in the evaluation of 
array axprassionss in arrey assignment statements» and in FORALL 
statements. 
90305 ABRAY_STORAG 2b SEQUENC 
An array has a storage saquence consisting of the storage sequences 
of the array elements in the order determined by the array element 
orderinge The number of storage units in an array iS x*Z» where x 
is thea number of the alements In the array anc z Is the number of 
storage units for each array element. 
5e% ARRAY UELSUCHT NAME 
The form of an array element name is? 
B (Cs CoSleee) 
where: a is the array name 
(s ECegdeee) iS a Subscript (5.5.1) 


s is a subscript expression (5e5e2) 


The number of subscript expressions Must be @yyal to the number of 
diaenstons in the array declarator for the array name. 


369 SUBSCRIPT 
5e5e1 EORN_OF_A_SURSCRIPT 
The form of a SubScriok is: 
Cs Cys Tene) 
where s is a subscript expressione 


Note that the term "subseript™ Includes the parentheses that delimit 
the list of subscript expressionse 
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520 ARRAYS AND SUBSTRINGS 
5e5e2 SUBSCRIPT pa acennocns 


SCRIPT_EXPRESSTION | 


complex», or Bool@an scalar expressione A subscript 
may contain array element refarences and function 
eS» Note that $a restriction in the evaluation of 
expressions (6e6) prohibits certain side effects, In particulars 


nt expression Is an Integers reals double precisionsy half 
3’ 
n 


avealuation of. ai function must not alter the value of any other. 


subscript exaression wlthin the same subscript. 


Within a program units the value of each subscript expression must 
be greater than or equal to the corresponding tomer dimanston bound 
in the array declarator for the arrey. The value cf each subscript 
expression must not exceed the corresponding upper dimension bound 
declared for the array in the program unite If the upper dimension 
bound is an asterisks the value of the corresponding subscript 
exoresston must be such that the subscript value does not exceed the 
size of the dummy array. If an upper dimension bound is omitted in 
an assumed=-shape array, the value of the corresponding subscript 
expression gi must be such that 


si:< dl * sa — 1 


where dl is the lover dimension bound of the dimension where the 
subscript is written and sq its the size of the corresponding 
dimansion of the actual argument associated with the assumed=—shape 
arraye 


The value of each subscript expression of an allocatable array must 
be greater than or equal to the corresponding loner dimension bound 
established bs the axecution of the ALLOCATE statement. © The value 


of each subscript expression of an allocatable array must not exceed. 


the corresponding upper dimension bound established by the execution 
of tha ALLOCATE statemant. 


505.3 SUBSCRIPT VALUE 


The subscript value of 2 subscript is specified in Table 1. The 
subserint value daterminas which array e)emant Is identified by the 
array element namee Within a program units the subscript value 
depends on the values of the subscript expressions in the subscripts 
thea dimensions of the array specified tin the array decltarator for 
the array in the program unity and whether the array Is a columnwise 
array or arowwise array (see 8-10). If the subscript value is fy» 


thea cth elemant of the array is identified. 
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Tablet 
Subscript Value 
For Columnwise Array 
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Table 1 (continued) 
Subscript Value 
For Rowwise Array 


he eames ae ree POR ED ONG th UD Ce eh WOR UY TLE NED AEE Hed HAND CRE VEN Gad WED OS GD GED ED GED Rue 


Dimension 
Declarator 
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Subser fpt 


a 


Subscript 
Value 
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1+{si-J1)¥*d2 
+(s2—j2) 


1+{sl-j1l)*d2*d3 
+(52-j2)%*d3 
+{53-j3) 
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Notes for Table 1: 
(1) n is the number of dimenstonss, 1 n § 7 
(2) ji is the value of the lower bound of the ith dimension 
(3) ki is the vafue of the upper bound of the ith dimension 
(4) If only the upper bound is specifieds then ji = 1 
(5) si is the integer value of the ith subscript expression 
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(6) di = ki-jitl is the size of the ith dimensione If the vatue 
of the fower bound is ls then di = ki 


Wore that for arrays that do not have siz2 zero a subscript of the 
form (Jlyeees in) has a subscript value of one and identifies the 
first element of the array. A subscript of the form (klseceskn) 
identifies the last alemant of the array; its subscript vatue is 
agqual to the number of elements in the array. 

The subscript value and the subscrjpt expression value are not 
necessarily the same», even for. 28 one-dimensional array, In the 
axamoles 


DIMENSION A{—-1:2)%B(10s10) 
A(2) = B(ls2) 


A€2) identifies the fourth elament of A»y the subscript ts (2) with a 
subscript value of fours and the subscript expression is 2 with a 
value of twoO-6 Bll,2) identifies thea e)eventh alement of Bs the 
subscript is (192) with a subscript value of eleven» and the 
subscriot expressions are 1 and 2 with vatues of one and twoe 
De ARRAY_SECTION_U jANES 
The form of an array section name is? 
a(sslsssl. ee) 

whereas 

a is the array name 

(sslssgleee) iS a Section subscript 


ss | is a section subscript designator 


Tha number of section subscript designators must be equal to the 
nuawber of djmensions in the array declarator for the array names 


DeoGol SECTIAN SUBSCRI2T 

5e6e1el Enc of_a_sSactlon Subscript 

The form of a section subscript is: 
(sslysggleee) 


where ss is a section subscript desjanatore At least one of the 
must bea a seation salector. 


ta 


in 


Note that. the term saction subscriopt includes the parentheses that 
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Se6elel Form of a Saction Subscript 


delimit the list of subscript expressions, 

SeGele2 SactLon— subscriok_Exoreassion 

ection subscript. expression is 8 subscript expression or a 
ion selactor. A sectian selector Is an Indexed section selector 


@: 
r a vector—valued section selector. An indexed section selector is 
F the forms. 


Co fn 
ae {id 


Cssll:C€ss2]C2ss3] 


whera ss is a subscript expression. A yector-yvalued section 
selector is a one<dimensional integer array expressions 


Tf ssl ts onmltteds then the value of the corresponding’ lower 
dimension bound is implied for ssle If ss2 is omitteds then the 
yaiue of the corresponding upper dimansion bound ts Implied for ss2. 
If ss3 ts omitted» then the value of one is implied for ss3- 


5e7 ARRAY SECTION 


An array section is a subsequence of an arraye The number of 
dimensions of tne array section is equal to the number of. section 
selectorse : 


If an array is rowwise (columnwise)s then any section thereof is 
also considerad to be rowwise (columnwise). 


Each section selector identifles elenents for the dimension position 
where it is writtene The order of dimensions in an array section is 
determined from tlaft to right by the appearance of section 
selectors. For exanples 


AC 929%) 


is an array section sith tro dimensionse Tha first dimension 
morresponds to the first dimension of A and the second dimension 
corresponds to the third dimension of Ae 


The total number of 21nments idantified is given by tha value of the 
expression 


MAXCINT ((ss2=ss1+ss3)/s53)90) 


If the total number of elements is positive then the section 
selector identifies the elements from ssl to ss2 in increments of 
ss3 and exch elament must Jie uithin the bounds of the array being 
sectioned. Tha size of a dimenston of an e@rray section is equal to 
the number of elements identified in that dimensione The size of an 
array section is equal to the product of the sizes of the dimensions 
of the array sretpone In usajes where an ordering of alements of an 
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array ewelon is implieds for exemple, in an output tists it is as 
if the array section is formed and a new temporary array created and. 
the array ei gnente of the reeperaly array are used in order of 
subscript vate (54523). 


A veetor-value d section selactor Identifies a section formed by 
selecting the elements identified by the vatues of the elements of 
the one dimensional array used as a saction selector. The values of. 
alamants of tne one dimenstonal erray used as a section selector 
Must not select elements outside the bounds of the array being 
sectioned. 


When a vector~valued saction Is useds the number of elements In the 
resulting section along the dimension selected by the vector-valued 
expression is determined by and is equa! to the number of elements 
in thea vector-vyaluad expression. 


An array re fare ance involving vector-valued subscriptss when used as 
an actual argument is an expression and may not be defined within 
the subprograme 


For examples, suppose Z Is a tuo dimensional array of 5 by 7 elements 
and U and V are one dimensional arrays of 3 and 4 elementsys 
respectivalye Assume the valuas of U and V are: 


U 


ime 
V 2 


oe 
sie Co 


then Z(39sV) consists of thea alements of the third ror of Z in the 
order: 


Z0322)2(351)20391)2(353) 

and Z(Us2) consists of the column elemants! 
Eis 2) 735 217 (8529 

and finally Z(UsV) consists of the elements: 
Z(192)Z0191)Z7(191)97(153) 
£(322)2(321)2(391)2( 353) 
Z(292)2(251)20291)2(253) 


5.8 DUUMY_ AUD _ACTUAL_ARBAYS 


A dummy array is an array for which the array declarator is a dummy 
array declarator.e. An agssumed-sizo dummy array is a dumny array for 


which the array declarator is an assumed=—size array declaratore An 
assumed-shape dummy array is a dummy array for which the array 
declarator is an assumed-shape declarator. A dunmy array fs 


permitted only in a function or subroutine subprogram (Section 16). 
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An actual array is an array for which the array declarator is an 
actual array declarator oar an allocatable array decilaratore Each 
array In the main program must be an actual array. An actual array 
in a subprogram must have a constant array declarator or an 
allocatable array daclaratore An actual array with an allocatable 
array deciarator Is called an allocatahle arraye <A dummy array may 
be used as an actual argument. 


5.8.1 ADJUSTABLE ARRAYS _AND_ADJUSTABLE_DIMENSIONS. 


An adviustable array is an array for which the array declarator is an 
adjustable array -jectarator.e In an adjustable array dectaratorys 
those dimension declarators that contain a variable name are called 
Adjustable dimensions. 


An addustadle array declarator must be a dummy array declarator. At 
Jeast one dummy argument list of the subprogram must contain the 
name of tha adjustadie array. A variable name that appears in a 
Jigensfon bound expression of an array must also appear as 2 fname 
either in every dummy argument Iist that contains the array name or 
in a common block in that subprogram 


“At the time of oxacution of a reference to a function or subroutine 
centaininy an adjustable array in its dummy argument list, each 
actual argument that corresponds to a dummy argument appearing in a 
dimension bound axpression for the array and gach variable in common 
appearing in a dimenston bound expression for the array must ba 
defined with an integer values. The values of those dummy arguments 
or variables in commons together with any constants and. symbolic 
nanas of sonstants appearing in the dimension bound expressions 
determine the siza of the corresponding adjustable dimension for the 


execution of the subprogram. The sizes of the adjustable dimensions. 


and of any sonstent dimensions appearing in an adjustable array 
dJeclarator «determine the number of elements In the array and the 
array element orderinge The execution of different references to a 
subprosgram or different executions of the same reference determine 
possibly different properties (size of dimensionss dimension boundss 
Number of elemantssz and array element ordering) for each adjustable 
array in the subprogram. These properties depend on the values of 
any actual araquments and variables in common that are referenced in 
tha adjusteole dimanston expressions In the suberograme 


During the execution of an external procedure in ae subprogram 
containing an adjustahle arrays the array properties of dimenston 
sizey iowar and upper dinenston boundss and array size (number of 
afjements in the array) do not changes Howevery the variables 
involved in an adjustable dimension may be redefined or become 
undefined during execution of the extarnal procedure with no effect 
on the above mentioned properties. | 


COMTROL DATA PRIVATE 


aneaeese OS Bae 


: . 5-14 
Cantrol Data Corporation Standard FORTRAN 
83/06/30. 


SDD YE nO NR FR SA RE FA ON Ne NO (UH NS etl Geng EE ED AED SAND OED wAED IVD ID BPS SUNS RON LE HSE WO ND AEE GED MAD ES cee AE ND Se US TNE OH CN EEE SE SEND AD HED GHD SRE CRED GES NES ED WERE OTD ANNE FA NED GOED HAD ene hee OR eben EEO END 


e) 
9 USE OF ARRAY NANES 
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909 USE_DE_ARRAY_NAUES 


In a program units each appearance of an array name must be in-= an 
array #@leme@nt name except in the following cases: 


(1) In a list of dummy arguments 

(2) In a COMMON statement 

(3) In a typeestatemant 

(4) In an array declarator. Note that although the form of an 
array declarator may be identical to that of an array element 
namay an array deciaratar is not an array element names 

(5) In an EQUIVALENCE statemant 

(6) In a DATA statement 


(7) In the List of actual arguments In a reference to an external 
procedure or an intrinsic funct}jon 


(8) In the list of an input/output statement 


(9) As a unit identifier for en Internal file In an input/output 
statement 


(10) As the format identifier in an input/output statement 
(11) In a SAVE statement | 
(12) As a primary in an array Sopeeston 
(13) In an array assignment statemant 
(14) In an ALLOCATE or FREE statement 
(15) In an IDENTIFY statement 
(16) In a FORALL statenent 
5e9.1 APPEARANCE OE_ARRAY_ SECTION NAMES 


In a program units array section nates may appear in the following 
Places? 


(1) In the Jist of actual arguments in a reference to an external 
procedur? or an intrinsis function 


(2) In the Jtist of an tnput/output statemant 
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(3) As a ynit identifler for an Internal fite In an input/output 
statement 


(4) As the format identifier in an input/output statement 
(5) As a arimary in oan array expression 

(6) In an array assignment statement 

{7) In a FORALL statement 

5.10 CHARACTER SUBSTRING 


A character substrinjy is ® Contiguous portion of a character datum 


and is of type charactere <A character substring is Identified by a 


substring name and may be assigned values and referenced. 
5elOol SUBSTRING NAHE « 


The forms of 3 substring name are? 


vy ( Eel] =? [e2) ) 
Eu (s Tagless) [eld] : [e2] ) 
where? yv is a character variable name 
2 (sg Cages) is acharacter array element name or array 


section name 


#1 and 92 are each an integers resis double precisions half 
‘precisions complexs or Boolean scalar expression and are 
called substring expressions. If alslssleece) is an 
array sections It identIifies the substrings of the array 
elements identified by the section subscript. 


The value el specifies the leftmost character position of the 
substring and tha vatue #2 specifies the rightmost character 
position. For examples A(2?4) specifies characters in positions two 
chrough four of the character variabla A» and B(4,3)(126) specifies 
characters in positions one through six of the character array 
element B(423). 


The tength of a character substring is MAX(Os82-G1+1)-. If the 
length is nonzero then the values of el and e2 must be such that 
lfal<lens lga2slen. If e1 Is omitteds a value of one Is Implied for 
el. If e2 is omitteds a value of len is implied for a2. Both a1 
and e@2 may be omittad: for examples, the form y(?) Is equivalent to 
Vs and the form als CySJeee)(?) is equivalent to gals CaSleee)e 
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5.10.2 SUBSTRING EXPRESSION. 


5.10.2 SUBSTRING EXPRESSION. 


A substrina axeression may be any scalar integers reat» double 
precistions half precisionsys complex or Boolean expressione A 
substring exprassion may contain array element raferences and 
function references. Nete that a restriction In the evaluation of 
expressions (626) prohibits certain side effects. In particulary. 
evaluation of 4 function must not alter the value of any other 
expression within the same substring name, 
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6.0 SXPRESSIONS 


This section describes the formation, interpretations and evaluation 
rules for arithmetic,. characters relational» Boolaans bits and 
lojical exprassionSe An expression is formed from  operandss 
ooeratorss, and parentheses. 


An agtray operand is an array references array section references or 
a Function reference whose value Is an array. AN atcray expression 
is an arithmetic expressions relational expressions character 
expressions fJogical axprassions Bool ean expressions or bit 
axpression in which one or more primaries Is en array operand. An. 
array expression produces an array-valued resulte 


6+1 ABITHNSTIC CXPRESSLOus 


An arithmetic expression is used to express a numeric computation. 
Svatuation of an arithmetic expression produces a numeric valuee 


The simptest form of an arithmetic exnrassion is an unsigned 
ardthmetic constants symbolic name of an arithmetic constants 
arithmetic variable references arithmetic array element references 
arjtnmetic array referances arithmetic array section references or 


arithmetic Function reference. fiore complicated arithmetic 
expressions may be formed by using one or more arithmetic or Boolean 
operands together with arithmetic operators and parenthesese 


Arithmetic oparands must identify values of type Integers realy 
‘Joubte orecisijions half precisions or complex. 


Oelel ARITHHETIC OPERATARS. 
The Five arithmetic onerators are: 


+ Nt One UD ee Wet quad eatte wae eens SUD OOD HOD tp wee ee cre cre eae cams ste ere S08 OD emo SERS ID OO ERE SOO SD 20D PUD FOR “SD Cad HD Ene OR] CEN GED Oe PDE REED + 


i} Oparator ¢ Represantina : 
foe eee ee poe = 
H me : Exponentiation H 
H / i: Division i 
i *e $ Myltipticatten H 
H - :+ Subtraction or Negation q 
‘ + : Addition or Identity } 
pe coe ce panne pan et ene ne eae ee of rh ne tS Ot a Ae te Set en See een seme eof 


Each of the operators **» /» and * operates on a pair of operands 
and is written between the two operands, Each of the operators” + 
and — either: 


(1) operates on a pair of operands and is written between the two 
operandss or. 
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{2) operates on a single operand and is written preceding that 
operande 


601.2 EORMU_AND INTERPRETATION OF ARITHMETIC EXPRESSIONS 


The interpratation of the expression formed with each of the 
arithmetic operators in each Form of use Is as fallowss: 


ROAD CUD Greed TD AE AED NED REND TD rh Cae GOES GED GP wey COED AD CD OND WON LED EE EONS GRU ED HNEY OOD ID SED OD ED EES VERS eS wane + 


pe ae ae ae ee ae ee ee me a ae of 
i Use of Operator i Interpretation H 
nee eet ea se tn fe eee ee nee oe ce me et eae re ne a ea a ee me + 
' X1 ** x2 + Exgonenttate x1 to the power x2 3} 
4 q ’ 
q 3 , | 
H x1 / x2 : Divide wl by x2 i 
8 1 4 
5 | a 
: x1 * x2 : Multiply xl and x2 H 
] | a 
1 ‘ 1. 
i x1 ~ x2 i Subtract x2 from xl 4 
1 2 | 
| ¥ iY 
' ~ x2 + Negate x2 H 
a 3 : 4 
’ 8 § 
H wl + ¥2 ! Add ¥1l and x2 H 
; ' . : 
; + x2 + Same as x2 : 
ofp vou at ee ese ae oa et nn ee en ae oe ne fee a ee eet ec ne ae nee et ha a ee nS ae nw + 


where: xl denotes the operand to the left of the operator 
x2 denotes the operand to the right of the operator 


The interpretation of a division may Agpend on the data types of thea 
operands (661.5). 


A set of formation rules is used to establish the interpretation of 
an arithmetic expression that contains two or more operators. There 
is a »~recedence among the arithmetic operatorss which determines the 
order in sihich the operands are to be combined unless the order is 
changed by the use of parenthesese The precedence of the arithmetic 
operators is as follows: 


fa ee ee fone + 
| Operator {| Precedence H 
ofp ne te a neo nae a ee fn ee i we me re + 
‘ ae: + Hiahest : 
i * and / + Intermediate } 
+ + and - | Lowest ‘ 
fee ee ee ee oe tenn et 


For axample@s In the expression 


-~ A *x 2 
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the exponentiation operator (**) has precedence over the negation 
operator (-)}3 therefores the operands of the exponentiation operator 
are comhbinad to form an axpression that is used as the operand of 
the negation operators The Interpretation of the above expression 
is the same as the interpretation of the expression 
-— (A ** 2) 

The arithsestic operands are? 

(1) Primary 

(2) Factor 

(3) Term 


(4) Arithmetic exprassion 


The formation rules to be applied In establishing the interpretation 
of arithmetic expressions are in 6bele2el through Gele2ede 


Gele2el Primarisss 
The primaries are? 
{1) Unsigned arithmatic constant (40203) 
(2) Symbolic name of an arithmetic constant (3.6) 
(3) Arithmetic varjable reference (2.5) 
(4) Arithnetic array element reference (5.4) 
{5) Arithmetic array reference 
(6) Arithmetic array section reference 
(7) Arithmetic function reference (16.2) 
(2) Arithmetic expression enclosed in parentheses (6ele2s4) 
Gele2e2 Enchores 
The forms of a factor are? 
(1) Primary 
(2) Primary ** factor 


(3) Boolean primary ** factor 
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OeO EXPRESSTORS 
Heleacee Factor. 
(4) Primary kk Boolean primary 
(5) Boolean primary ** Boolean orlImary 


Thuss a factor is formed from a sequence of one or more primaries or. 


Booleen primaries {6.7e1.1) separated by the exponentiation 
operators Form (2) {Indicates that in Interpreting a factor 


containing two or more exponentiation operatorsy the primaries are 
combined from right to Jefte For 2?xamples, the factor 


OK QE? | 
has the same interpretation as the factor 
pest ( 32k 2) 

Hele2s3 Terre 
The forms of a term are: 

(1) Factor 

(2) Term / factor | 

(3) Term * factor 

(4) Term / Boolean primary 

(5) Term = Boolean primary 

{6) Boolean eiiars / factor 

(7) Boolean primary * factor 

(3) Boolean primery 7/7 Boolean primary . 

(9) Boolean primary * Boolean primary 
Thus» a term is formed from a sequence of one or more factors or 
Boolean primaries (6.7.1.1) separated by either the multiptication 
operator or the divislon operator. The ahove forms Indicate that jn 
interpreting a term containing two or more multiplication or 
division operatorss the factors or Boolean primaries are combined 
from Left to righte 
Hels2e4 Arithmetic cxpression- 
Tha forms of an srithwatic ayeression are: 


(1) Term 
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(2) + term 
(3) - term 


(4) Arithmetic expression + term 


(5) Arithmetic expression term 

{6) + Boolaan primary 

(7) - Boolean primary 

(8) Arithmetic expression + Boolean primary 


(9) Arithmatic expression —~ Boolean primary 


{10) Boolean primary + term 


(11) Boolean primary term 


(12) Boolean primary + Boolean primary 
(13) Boolean primary ~- Boolean primary 


Thuss an arithmetic exoression is fornad from a sequence of one or 
more terms or Boolean primaries separated by either the addition 
operator or the subtraction operatore The first term or Boolean 
primary in an arithmetic expression may be precedéd by the identity 
or the negation opsratore The aboye forms indicate that In 
interpretin: an artthmetic expression containing two or more 
addition or subtraction operatorsysy the terms or Boolean primaries 
are combined From left to right. 


Note that thease formation rules do not permit expressions containing 
two consecutive arithmetic operatorsys such as **=—B or At—Be 
HNHouayvery expressions such as A**(={B) and At(-B) are parmittede 


60163 ARITHMETIC. CONSTANT _EXPRESSION. 


An arithmetic constant exeression is an arithmetic expression in 
which each (Carithmetic) primary ts an arlthmetic constants the 
symbolic name of an arithmetic constants, or an arithmetic constant 
expression eanclosed in paranthesesy, and each Boolean primary 
{6e67elel) is a Boolaan constents the symbolic name of a Boolean 
constants or a Boolean constant expression enclosed in parenthesese 
The exponentiation operator is not permitted unless the exponent is 
of type intnyjer or Booleane If the exponent a is of type Boolcans 
the value used is INT(e). Note that variables array elements and 
Function refarences ara not allowed. 
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Gele3 ARITHHETIC CONSTANT EXPRESSION. 
axpression except: 


{1) selected elemental intrinsic functions are alloveds when 
rafereanced with constant aroumantss 


-(2) selected array-vajued [Intrinsic functions are allowed. 


Tha list of allowed elemental and array~yelued intrinsic functions 
is implementation dependant. 


6ele3el Inteaer Constant Expressions 


An Lnseaer senslank eaxeceassion is an arithmetic constant expression 
(6.1.3) or ae Boolean constant expression (62723) in which each 
constant or symbolic name of a constant is of type2 integer or 
Rooleane If the integer constant expression 2 is a Boolean constant 


expressions the value used is INT(g).e. Note that variabley array. 


elaments and function references are not allowed. 
The following are examples of integer constant expressions: 


3 
te ee 
—3+4 
o'%74" 
RIAN 
RVAB™ eANiDe 43 


An extended integer constant expression is an Integer constant 
axprassion axcepts 


(1) selected elemental intrinsic functions are alloweds when 
referenced with constant argumentsy | 


(2) selacted array-valued intrinsic functions are allowed. 


The list of alloved elemental and array-valyued intrinsic functions 
is impléemantation dependant. 


641.4 TYPE_AND_ INTERPRETATION OF ARITHMETIC EXPRESSIONS 


The data type of a constant is determined by the form of the 
constant (4-2e1). Tne data type of an arithmetic vartable 
references symbolic name of an arithmetic constants arithmetic array 
element referencey or arithmetic function reference is determined by 
the name of the datum or function (4.1.2). The data type of an 
arithmatic expression containing one or more arithmatic operators fs 
determined from the data types of the operandse 


Integer expcessionss Leal expressions» deauble pracision axoressionss 
balf precision expressionss and complex expressions are arithmetic 
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expresstons whose values are of type integers reals double 


-precisions half precisions and complex», respactivelye 


When the operator + or — operates ona single operands the data type 
of the resulting expression is the same as the data type of the 
operand unless the operand is of type Booleany in which case the 
tyoe of the rasulting axpres Sion is integer. . 


When an arithmetic aperator operates on a pair of operandsy the data 
type of the resulting expression is given in Tables 2 and 3 In 
thase tables,» each Jetter Is R» D» Hs» or C represents an operand or 

asult of type Integers reals doubje precislons or complexs 
respectively. 


The type of th2 result is indicated hy the I» Rs Ds Hs» or C that 
precedes the equalss and the =Interpretation Is Indicated by the 
expression to the right of the equalse REAL» ODBLE, HALF» EXTEND» 
and CMPLX are the type-conversion functions described in 1610. 
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Table_2 
‘Type and Interpratation of Result for x1+x2 
fe ee ne et ew fe eee nee me ae ae ra ne er ene eee eee me a ee ee Sf ee ce in ae ee ae ae we a He ee + 
} wes 4 T2 i R2 ‘ 
i &®1 i H ; 
fo fe a re ae nn a ee ae ee se a ee ee me he ee ee re wre ce ae a oe ee enn oe eo me oe ne + 
: Tl : I2=I1Iil+ i2 > R = REAL(CI1) + R2 $ 
8 ? t | 
4 | z $ 
: R1 4 R = RL + REAL(I2) >= R = RL + R2 : 
1 | : 1. t 
4 a ¢ : q 
;. Dl ' D = DL + DBLECT2) : .D = Dl + DBLE(R2) H 
% q . " : ty 
3 3 $ . 4 
i 1 t Ho= HL + HALF(T2) H R = REAL(H1) + R2 ; 
, | 4 § 
a 1 § 2 
oo CL iC=CL+CMPLXCREAL(I2)90.) § C = C1 + CHPLX(R2,0.) } 
fee ee ae fen $n He + 
Spe ee ae Ap ce a man a i tt a et a ee a a oe Sf ee se ea ere ne ae Or aw ne 0 a ew a are ee oe oe + 
i a D2 : C2 i 
i xl i : ‘ 
SS SE Saar a en a ea oe as a ee ae nm ee a Eee ee oe er eae a Se eae ie Se Se ee + 
eee ie | ; D.= DBLEC(IL) + D2 (C= CHPLXC(REAL(I1)»0.)+4+C2 : 
3 F | t 3 
i 3 . ? q a 
i R12 } D = DBLE(R1) + D2 $$ C = CNPLX(R1,0.) + C2 : 
| 1 Aa i 
| 1 g s 
} 01 ‘ D = D1 + D2 tC=CMPLXCREAL(D1)900)}4+C2 H 
t | t : § 
F} ae ; 1 _ ; : 4 
i 1 ; D = DBLECHL) + D2 rC=CMPLX(REAL(H1)902)4+C2 ' 
' t ' : | 
4 1 ' 1’ 
; C€l IC=CLECMPLXCREAL(D2)90-.) {| C = C1 + C2 i 
$m me em $e ee fo ~ + 
fp a es a ws ee fe mr mn ee ce a ee ee a ee a a eee ee oe + 
i x2 | H2 ; 
; 6-1 H H 
pio eta fee ee ee + 
ne be $ ‘| = HALFCI1L) + H2 ' 
8 | a 
t 1 q 
: Ri ; PR = RL + REALCH2) i 
? 1 | 
| 3 / a 
; Pl } DO = pl + DBLE(H2) H 
| t | 
$ t 4 
: 1 + H = HL + H2 ' 
i H H 
i; .¢1 iC= COME ee er eae ) H 
ws oe woe ee me ee Ap me mes ne a ee ee ta ee a ee em nd ee a + 
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Tables giving the type anid interpretation of expressions involving 
—» *,. and / may be obtained by replacing all occurrences of + in 
Table 2 by ~~» *» or /y respectively. 
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Takis 3 

Type and Interpretation of Result for x1**x2 

fe a ae noe a on nn on me fea mci eae a ae me et fe ee a ae ce ce ce ore ms a a ee ee ee oe + 
q x2 3 12 : R2 : 
; xl : : ‘ 
fo cane ae oe nee sae may we me 4+ so nee ree nice aoe nae seem cam oan Se ae 2m ee sane ee mane es eee om one eve me mee Fp coe ene ae ome ree wee et wae me ee one ee one Se coun me Rr tome wa NY mee + 
3. .£d i T = T1L*xI2 :; R = REALCI1)**R2 H 
? ’ ! § 
4 ] q a 
i Ri i R = R1I*¥*I2 $ R = RL**¥R2 H 
: 
; D1 ; D = DL**I2 ' D = DL*¥*DBLE(R2) : 
: i ; ‘ 
+; HI : H = H1**I2 $ R = REAL(H1)*#R2 H 
7 q a ty 
3 3 : ] ¢ 
; Cl i C = Cl**T2 : Cz CLEXCMPLX (R29 00) q 
fe ee ee eee ne 5 ee ooo fe ee cae ne re ee ae ne ee me ce ae ae a a oe ae + 
fe re ane wt mae ea ee van aw Sats Reba e ease caaes ee ee ee ee ee ee a ee ne a ce ee ee + 
: x2 3 D2 : C2 : 
i xl i : ' 
sft a ee nee oe emer ee nf se se an a ee ree one en ace ne ne en mae ae oe ee ene oe whe ee en nae ee ee es oe ee pa ne ee ee + 
; niet + OD = DBLECIL)**D2 tCHCMPLX(REAL(I1)90.)%**C2 $ 
1 | 3 q 
3 | a | 
i; Ri i: oD. = DBLE(RL)**D2 ; C€ = CNPLX(R1900)**C2 H 
3 3 q a 
| q ! t 
fDi 7; DP = DL** DP? tC=CMPLX(REAL(D1)90.)%**C2 3 
t a a 
! | t ‘ 4 
+ YL $ D = DBLECHIL +) SC=CNPLX(REAL(CH1)590.)**C2 } 
? ! a iy 
3 q 4 ‘ 
et iCc=C1* EMP LALA EAE DDE) Os i C = CL**C2 : 
she rene oe we men ne ane oe fe ee ee nee ete cae ae ae ee a na ne a ee nae nan ne me ne af na ee on ns ee ee Pe ne ae ue ne sme ne Se A ae + 
ofp ee toe ae ee a ae fe ee ee ne eee ae ee ee me mm ee nn ee ee se ee + 
i x2 4 H2 i 
+ xl : : 
of es oe ee fo ete ne are ee ee se cence me ea tae ee re ne sn a see + 
i T1 $ HH = HALFCIL)**H2 ' 
i] v a 
q 3 | 
; Ri ' R = RY*X*REAL(CH2) 3 
3 T ’ 
} D1 ; NO = Dl**DBLE(H2) H 
| 1 ] 
3 t | 
> HL : f= H1*s*H2 ' 
H H H 
© C2 PC=CLE*CMOL X(REALCH2)50-) H 
po pee a + 
Five entries in Table 3 specify an interpretation to be a complex 


the values of the 
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bele4 TYPE AWD INTERPRETATION OF ARITHMETIC EXPRESSIONS 

expression is the "principal value" determined by xlL*¥*xX2 = 


EXP(x2*LOG(x1))» where EXP and LOG ara functions descrited in 16.10. 


Except for a value raised to an integer powers Tables 2 and 3 
specify that if two operands are of different type, the operand that 
differs in type from the result of the operation is converted to the 
type of the result and then the operator operates on e pair of 
operands of the same type. When a primary of type reals double 
precisiony half precision» or complex is raised to an integer ponerys 
the integer operand need not be convertede If the value of I2 is 
negatives the interpretation of I1**I2 is the same as the 
interpretation of L/(IL*¥*ABS(I2))» which is subject to the rules for 
integer division (60145). For e@mampie,s, 2%*{-3) has the value of 
1/(2**3)5 which is zero. 


The type and interpretation of an expression that consists of = an 
operator operating on either 2 single operand or a pair of operands 
are independent of tha context In which the expression appearsSse In 
particulars the type and Interpretation of such an expression are 
independent of the type of any other operand of any Jarger 
expression in which it appearse For axamples if X Is of type reals 
J is of tyne Integery and INT is the real-—to-integer conversion 
Functions the expression INT(X4+J) is an integer expression and X#J 
is a real expression. 


6014.1 Bonlaan Desrands and_Arithmetic Operators 


A Boolean operand (either base or power) of the operator ** Is 
canverted to integer and the operation is performed on the converted 
operande A Boolean operand of the operator +t,» my * or / is subject 
to the following rules? 


If two operands are of different type and one type is Booleans 
the result has the type of the other operand. If both operands 
ara of typ2 Booleans the result has type integer. The result of 
the operator + or the operator - operatina on a single Boolean 
operand is of type integere A Boolean operand is converted to 
the type of the results, and the operation is performed on the 
convertad operande 


5 INIEGER DIVISION. 


Ine operand of type integer mey be divided by enother operand of 
cype integer. Although the mathematical quotient of tuo integers Is 
not necessarily an integers Table 2 specifies that an expression 
involving the division operator with two operands of type integer is 
intorpreated as an expression of type integer. The result of such a 
diviston is called an Integer quotient and is obtained as follows: 
If the magnitude of the mathematical quotient is less than oney the 
integer guotiant is zaro. Otherwises the integer quotient is the 
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integer whose magnitude is the Jargest integer that does not exceed 
che magnitude of the mathematicel quotient and whose sign is the 
same as the sign of the mathematical quotient. For exemple, the 
value of the expression (-—8)/3 is {(-—2)., 


6e2 CHARACTER _EXPRESSTONS 
A character expresston Is used to express a character string. 
Evaluation of a character expression produces a result of type 


character e 


The simplest form of a character expression Is a character constants 
symbolic name of a character constants character variable references 


character. array element raferences character array references 
sharacter array section references character substring r2aferences or 
character function referencee More complicated character 


expressions may be formed by using one or more charectér optrands 
together saith character operators and parenthesese 


Gbe2el CHARACTER OPEPATOR 
The character operator is? 


ah ee ee cee re pre ae eee meee ee omen 


fm a ee ee + 
+ dperator { Representin 1 
Sp cee me ane cae ee eof ce ee ee ae ee ne ee me em + 
H // + Concatenation |[ 
fee one ae tee ene $m ee eee mt ae ae ee me + 


The interpratation of the axpression formed with the character 
operator is? 


ooo ee + 
} Use of Operator ! Interpretation H 
fe ae a can met Se fp ce ae a ee ae ee ree ee + 
i x1 // x2 : Concatenate xl with x2 § 
Sf ne ee en te er eae ne pm a a ee ten ae ee ee + 


where: xl danotes the operand to the left of tha operator 

x2 denotes the aperand to the right of the operator 
The result of a concatenation operation is a character string whose 
yalue is the yvyalue of x1 concatanated on the right with the value of 


x2 and whose length Is the sum of tha lengths of %*1 and x2e For 
examples the value of "AB! // 'CDE! is the string ABCD. 


A character expression and the operands of a character expression 
must identify values of type character. except in acharacter 
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assignment statement (10.4)» a character expression must not involve 
concatenation of an operand whose length specification is an 
asterisk in parentheses (82e4e2) unléss the operand is the symbolic 
nane of a constant. 


Ge2e2el Character Primariess 


The gharactar arimaries are? 


(1) Character constant (4¢8e1) 
(2) Synmboalle nane of a character constant (8.6) 
(3) Character variable reference (2.5) 
(4) Character array element reference (5,4) 
(5) Character array referenca 
(6) Character array section reference 
(7) Character substring reference (5210) ) 
(8) Character function reference (15.2) 
(9) Character expression enclosed in parenthéses (662022) 
Ge2eled Character Exeorassions, 
The forms of a character expression are! 
(1) Character primary 
(2) Character exeression // character primary 
Thus» a character expression is a saquence of one or more character 
primaries separated by the concatenation operator. Form (2) 
indicates that in a charascter expression containing txo or more 
concatenstian operatorss the primaries are combined from teft to 
right to establish the interpretation of the expressione For 
examples the formation rules specify that the interpretation of the 
sharacter expression 
TABE // tCD? // PEF? 
is the same as the interpretation of the character expression 
{tAB! // tCD1) // YEF! 


The value of the character expression in this example is the same as 
that of the constant 'tABCDEF'. Note that parentheses have no effect 
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on the value of a character expression, 
66203 CHARACTER CONSTANT EXPRESSION. 


A character constant expressinn is a character expression in which. 
each primary is a osoharacter constant, the symbolic name of a 
character constants, or a character constant expression enclosed in 
parentheses. Note that variables array elements substrings and 
Function references are not allowed. 


An extended character constant expressjJon is a character constant 
expression except: 


(1) selected elemantal intrinsic. functions are allowed: when 
referenced with constant argumentsys 


(2) selected array-valued intrinsic functions are allowed, 


The list of allowed elemental and array-valued intrinsic functions 
is Implementation dependant. 


Se3 RBELATIOQNAL_OXPRESSLONS 


A 6orelational expression is used to compare the values of two 
arithmetic or Boolaan expressionss tyvo character expressionss or two 
hit expressionse A relational) axoresslon may not be used to compere 
the value of an arithmetic or Boolean expression with the value of a 
character expression or bit expressione A relational expression may 
not be used to compare the value of a bit expression with the value 
of g character expressions 


Pelationa! expressions may appear only within logical expressionSe 
evaluation of a relational exprassion produces a result of typa 
logicals with a value af true or false. 

He3e1 BELATTONAL_OPSRATORS. 


The r#ablational operators are. 


fee ee ee mm a ee a ae a ee ne ene we ee et 
+ ‘perator ;: Representing : 
foe meee ene nen ne ene a nen we Sp ee ee et me a ee a -+ 
: oLT. i Less than ‘ 
' oLEe + Less than or equal to H 
H 0ED. t qual to i 
: oN i; Not equal te H 
H eGT- : . Greater than H 
; Gls t Greater than or equal to 3 
ofp one ae ene si cae ane te oa wa ne nef 8 Sand SO A Oe ves oe of 
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529 EXPRESSTONS . 
Oe3e2 ARITHMETIC RELATIONAL EXPRESSION, 
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The form of an arithmatIis relational eyeression is: 


where: el and e2 are each an arithmetic expressions Boolean 
rpimaryvs or arithmetic array expression 


telop is eae relational onerator 


A complex operand is permittad only whan the relational operator is 
ede or aN e 

60323 INTERPRETATION _DE_ARTTHMETIC_ RELATIONAL _EXPRESSTONS 

An arithmatic relational expression is interpreted as having the 
loitlcal value true if the values of the operands satisfy the 
relation specified by the operator, An arithmetic relational 
expression is interpreted as having the logical vatua false If the 
values of the operands do not satisfy the relation specified by the 
operator. 


If the two operands are of different types or are2 both of Boolean 
cypes, the value of the relational expression 


el celop e2 
is the valua of the expression 
((e1) - (282)) cedan 


where O (zero) is of the same type as the expression ((el)— (#82))>-s 
and celoo Is the same relational operator in both expressions. 


6.304 CHARACTER RELATLONAL_EXPRESSION, 
The form of a charactarc celational exeression is: 
al celop 22 


wheres el and e2 are character expressions or character 
array e@xprasstions 


cealan is a relational operator 
66305 JUTERPRETATION_OF_ CHARACTER _RELATIONAL_EXPRESSIONS 
A character relational expression is interpreted as the logical 
value true if the values of the operands setisfy the relation 


specified by the ooaratore A character relattonal expression its 
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interpreted as the togical value false if the values of the operands 
do not satisfy the relation specified by the operator. 


The character expression el is considered to be less than e2 if the 
value of al precedes the value of 22 In the collating sequence; al. 
is greater than e2 if the value of el follows the value of e2 in the 
collating saquenca (3,1-5)-. Note that the collating sequence 
depends on the collation weight table used by the processor; 
howevers the result of the use of the operstors e£EQ. and NE. can 
dapand on the collating sequence only if the user-specified 
collation welght table is selectedsy and then only if the program has: 
associated the same weight with two or more characters (34125). 


A character realational expression that is a logical primary of a. 
Joj;ical constant expression appearing in a nonexecutable statement 
(7.2) or a conditional compilation IFedirective (367.2) is 
interpreted using the ASCII collating saquanca (Appandix A). Use of 
the CS collation control directive (3.7.3) does not affect the 
interpretation of such expressionse 


64346 BIT_RELALIONAL EXPRESSION 
The form oF a bit celational expression is? 
21 celles 22 
where: el and e2 are bit expressions or bit array expressions 


caloa is @ ralational operator 


Oe 307 INTERPRITATION_OF_BIT_BELATIONAL EXPRESSIONS 


A bit ralational expresston Is Interpreted as the logical value true 
if the vatues of the operands satisfy the relation specified by the 
noeratore A bit relational expression Is interprated as the togical 
vajue false if the values of the operands do not satisfy the 
relation specified by the operatore 


Oe LOGICAL _EXPRESSTONS 


A logical expression is used toa express a logical computation. 
Evaluation of a logical expression produces a result of type 
fojicals with a valu2 of true or false. 


Thea simplest form 97 a Iogical expresstan fs a fogical constants 
symbolic name of a togical constanty Jogical variable references 
loJical array alement referances logical array references logical 
array section references fogical function references or relational 
expression, More complicated logical expressions may be formed by 
using one or more logical operands together with logical operators 
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and parentheses. 
Setel LOGICAL _ OPERATORS » 


The louicsl operators are? 


af me ee ee enn ee ae ent ee ae re 1 aoe ee noe mse ae me een ane mee aot ee ae ooo + 
>} Operator $3 Representing H 
fee a ee $a 
H elOT. t. Logical Negation H 
i oANDs 1 Logical Conjunction : 
j 2OR. ! Logical Inclusive DJsjunction 3 
Ys eEQVs ; Logical Equivalence : 
+; eNEQV. or {+ Logical Non-Equivalence H 
H aXOR. i ' 
fae meee eee oo + 


e402 EDRH_AMD INTERPRETATION OF LOGICAL EXPRESSIONS. 


A sat of formation rules ts used to estabsjish the interpretation of 
a fogical expression that contains two or more togical operatorse 
There is a precedence among the logical op®@ratorss which determines 
tha order in which the operands are ta be combined unless the order 
Is changed by the use of parentheses. The precedence of the logical 
operators is as follows: 


fm tte mena nn a en at Sela dan eaten tenet entantenteataat + 
i Operator i Precedence | 
pr a mn $e a en een + 
i oNOT. ; ‘tlighest H 
i eAND. q i 
i »OR. 4 i 
1 eEQVes NEQVe. or »XORe: Lowest : 
Pee eae te ee $name ee + 


For evampleas, in the expression 
A «ORe B eANDe C 
the «AND, operator has higher precedence than tha eR. operator; 
therefores the Interpretation oF the above expression Is the same as 
the interpretation of the expression 
The Inaisal operands are: 
{1) Logical primary 


(2) Logical factor 
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{3) Logica! ters 
(4) Logical disjunct 
(5) Logical eaxpreassion 


The formation rules to ba applied In establishing the [Interpretation 
of a logical expression are in 6042261 through 6e4e2e5- 


Ge4e2el Logical Primariesas 
The logical primaries are: 
(1) Koaieat constant (467.1) 
(2) Symbolic name of a logical constant (8,6) 
(3) Logical variable reference (265). 
(4) Logical array element reference (5.4) 
(5) Logical array reference 
(6) Logical array section reference 
(7) Logical function reference (16.2) 
{G@) Relational expression (6.43) 
(9) Loyical axpreassion anclosed in parentheses (66442.5) 
6040202 Logical Eactors 
The forms of a Logisel factor are: 
(1) Logical primary | 
(2) NOT. Jogical primary 
6e4e203 Lonisal Terns 
The forms of a logisal tecn weet” 
| (1) Logical factor 
(2) Logical term eANDe logical factor 
Thiss a logical term is a sequence of fogical factors seperated by 
che «AND. Operators Form (2) Indicates that in Interpreting a 
logical term containing two or more «AND. operators; the logical 
factors are sombinead from teft to right. 
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HeSe2e4 Logical Disjunote 
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604.204 Logical Disjunct. 
The forms of a Joalcal disdunct are: 

{1) Logical term | 

(2) Logical disjunct .OR. logical tera 
Thuss a logical disjunct is a sequence of Jogical terms separated by 
the QR. operator. Form (2) indicates that in Interpreting a 
lojyical disjunct containing two or more .OR. operatorsys the logical 
terms are combined from Jeft to right, 
6e4s2e5 Logical Expressions | 
The forms of a Logical expression are} 

{1) Logical disjunct 

(2) Logical Sepression oEQV. togical disjunct .. 

(3) Logical expression eNEQV. tlogical disjunct 

(4) Logical expression .XOR. togical disjunct 


Thuss a toyical expresston is a sequence of logical disjuncts 


separated by either the ef OVe» eNEQVe» or «XOR. operator. Forms 
(2)s (3)» and (4) indicate that in interpreting a logical expression 
containing tuo or more .EQVee eNEQV.30r -+XQRe operators, the 


Joyical disjuncts are combined from teft to right. 
90403 VALUE_JE_LOGICAL_EACTORSs_IEQMS» AND EXPRESSIONS 


The value of a logical factor involving «NOT. is shown below? 


fs a ee ae eee ace mt ere eae ee en new nee + 
i ¥2 +: eNOT. x2 3} 
fee ee oe + 
: true t false H 
i false ; true : 
of ore aan ane cen ome aw tom me + Pe rn eas sere et ear + 


The value of a ftogical term involving .AND. is shown belows 
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aff ame wan wa se at se sem enn fe san enn wee oe see en anes eose ae ff ae wen wr mae oi ee en atte ene em sw maw fl 

H x1 ae Cee ' xy AND. x2 } 

spe me oe a orn ane me fe ne ere $e een ee ee + 

+ true : true H true ; 

>. true i false } false : 

i; fatsa i true : false H 

i false {| false: j False : 

fee mene | oateahetetestesataniaah dentetededeneemeetenememmetcs 
Tha vatue of a togical disjunct Invelving .OR. Is shown below: 

fe eee ee ee + 

' x1 ie x2 > xl ef Re x2 |} 

Spe cae ne a ee a nce we ofp rete we we ee ere mee of men te ace ee en a a ere + 

; true : true H true i 

} true : false 73 true : 

: false 3: true i true 1 

:; false i falsa ¢ false H 

sree ree tn me a eng ee fp eee ee pone + 


The value of a logical expression involving .EQV, is shown below? 


fp ee ae eae neces oe fmm me a ae + 
i x1 H x2 $ x1 .EQV. x2 } 
os ee ame fp nee ee ee foe ene + 
i true ; true i true 4 
i rua i false $} false H 
i falsa ¢ true H False | 
:; false {: fatse $ true 4 
ft ee we ee ene fee ee von fee ct a ee me 
Tha values of a fogical expression Involving .sNEQV. or .XOR, is 
shawn below: 
fem eeee at nm fe es ea ere fe ie ten ae ef 
H «1 i x2 ; x1 eHE QV. x2} 
H x1 H x2 $ x1 -XOR. x2 } 
fmm eee a ee a + 
; true 1 true ' fade H 
i ‘trua i false f trus H 
: false ¢ true H true i 
: false {| false } false } 
speween eee ae en nw 2 eae ooo $m meme onsen at a me oe + 


6o4.4 LOGICAL CONSTANT EXPRESSION. 


A logical sonstant expression is a logical expression in which each 
orpimary is a logical constant, the symbolic name of a togicatl 
constant, a relational expression In which each oprimary is a 
constant expressions or a togical constant expression enclosed in 
paranth#sase Mote that varfables, array elaments, and function 


CONTROL DATA PRIVATE 


| ea 6-21 
Control Data Corporation Standard FORTRAN 
| . . 83/06/30 


SO AD NS HD ED SD ND SD ED GOD OES Gee WED enemy eS Ge SEP GUND GD Le NO RUD LE ND SN ONE GED HAM SEND OUD PS Rene BUND SEND URED GED WEDD GEO COD ES THES GUD NOD ENE EE WOT SEED LES SUD meEy ED ely WEED Wie ed SOR WEED cu GND Quer SD ORD wape MND ee GD OD ee 


MeO EXPRESSTOANS 
Oe4e4 LOGICAL CONSTANT EXPRESSION. 


references are not allowed. 


An axtanded togyical constant expression Is a fogical constant 
expression except: 


(1) selected elemental intrinsic functions are alloweds when 
referenced with constant argumentsy 


{2) selected array-valued intrinsic functions are allowed. 


The fist of allowed elamental and array-valued intrinsic functions 
is Imptementation dependant. 


6e5 PRECEDENCE OE _ OPERATORS 


In G6ele2 and 64-62 precedences haye heen established among the 
arithmetic operators and the logical operatorss respectivelye There 
is only one character operator. No precadence has hean established 
among the retetional operators. The orecedences among the various 
operators are? . 


wre ED Oe ed 28 2 On Oe oe 8 oD ot ome pan of 
Precedence 


Highest 


Arithmetic 
Character 
Ralational 
Bit 
Logical 
S seentometated Ld OD SOD PED LES ED ONE OD SHS ed EOD END PD SEND OE OED EES FEN HED DOD AED SD OR 


we owes we we 4 o 


Lowes 
ee ee eT 4- 


Ce ee 


An  2xpression may contein more than one kind of operator. For 
examples the logical expression 


L eQRe A + B eGEe C. 
where Ay Bs and C are of type real and L is of type tfIogicaly 
contains an arithmetic operators a relational operators and a 
losical operator. This axpression vould be interprated the same as 
tha exoression 

 ADRe “CCA BY 2GES OC) 
HeFel SUMUARY_OE_INTERPRETATIOU_RULES. 


The order in which primarles are combined using operators is 
determined by the following: 


(1) Use of paranthases 
(2) Precedence of the operators 
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(3) Right-to-left Interpretation of exsaonentiations In a factor 


(4) Left~-to-right interpretation of multiplications and divisions 
in a term 


(5) Left-to-right interpretation of additions end subtractions in 
an arithmetic express]on 


(6) Left<to-right interpretation of concatenations in a character 
axprassion 


(7) Left-to-rignt interpretation. of conjunctions in a togical 
terms Boolean terms or a bit term 


{6) Lafte-to-right intersretation of disjunctions in aie logical 
disjunct, Bonlean disJjJuncts or 4 bit disjunct . 


(9) Left-to-right interpretation of equivalences jin a logical 
“axpressions Boolean expressions or bit expression 


6.6 EVALUATION DE EXPRESSIONS 


This section applies to arithmetice characters relationals hits 
Boolean» and logical expressions. 


Any variable; arrays array sections array elements functions or 
character substring referenced as an operand in an expression must 
be defined at the time the reference is executede An integer 
aper.and must be defined with an integer valuey rather than a 
statement label value. Note that if a character string or substring 
is referenceds all of tha refaranced characters must be defined at 
the time the reference Is executed, 


Any arithmetic operation whose result js not mathematically defined 


is prohibitad in the ayecution of an exacutable program, Examples 
are dividing by zero and raising a <zero- valued primary to a 
zero-valued or negative-valued power, Raising a negative-valued 


primary to a real or double precision power is also prohibitede | 


The execution of a function reference In a statement miay not alter 
the value of any other entity within. the statement in which the 
Function reference appearsSe The execution of a function reference 
in a statement may not alter the value of any antity in common (8-3) 
that affects tha value of. any other function reference In that 
statement. Howevers execution of a function reference in the 
expression 2a of a Jogical IF statement (11e¢5) is permitted to affect 
antities in the statemant st that Is axecuted when the vaiue of the 
expression eis true. If a function reference causes definition of 
an getual argument of the functlons that argument or any associated 
entities must not appear elsewhere in the same statement. For 
examples the statements 
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A(T) = FCT) 
Y = G(X) + X 


are prohibited If the reference to F defines I or the reference ta G 
defines Xe 


The data types of an expression in which a function refarence appears 
does not affect the evaluation of the actual arguments of the 
function. The data type of an expression in which a function 
reference appears is not affected by the evaluation of the actual 
arjumants of the functions except that the result of a generic 
Function raference assumes a data tyne that depends on the data type 
of its arguments as specified in 16210. 


Any e2xecution of an array element reference reaulres the evaluation 
of its subscript. The data type of an expression in which a 
subscript appears does not affects nor is it affected bys the 
evaluation of the subscript. | . . 


Any axecutlon ef a substring reference raquires the evaluation. of 
its substring expressionse The data type of an expression in which 
a substring name apoears does not affects nor is it affected bys tha 
evaluation of the substring expressions, 


Any execution of an array section reference requires the evaluation 
of its section subscript expressions. The data type of an 
exyopession in which an array section appears does not affects nor is 
it affected bys the evaluation of the array section. 


When an arithmetic operators character operators relational 
operators, or flogical operator aperates on a dair of operands and at 
least one of the operands fs an array operands the operands must be 
conformable, The arithmetic operations character operations 
relational operations or logical operation is performed 
eleanent-by-element on corresynondina array elements of the operands. 
The result of the operation is the same shape as the array operand 
or array operands. For axampias, the array expression | 


A+B 


produces an array the same shape as A and Be The individual array 
atlaments of the result have the values of the first element of A 
added to the First element of Bs the sacond elemant of A added to 
the second element of Bs etc. The processor may perform the 
element-by~element operations in any order it choosese 


Yhen an ardlthmetic operator or a Inglice!l operator operates on a 


single array operands the operation is performed element~by-element 
and the result is the same shape as the operande 
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6.6.1 EVALUATION_OE_ OPERANDS. 


It !s not necessary for a processor to evaluate all of the operands 
of an expression if the value of the expression can be determined 


otherwise. This principle is most often applicable to Ifogical 


axpresslons and. 2ero-sized arrayss but It applies to. all 
expressions. For examples In evaluating the fogical expression 


Mott ¥ wORS. 205 


where Xs» Ys and Z are real and Lis a logical functions the function 
reference L(Z). need not be evaluated if X is greater than Ye 
Similarly in the array expression 


X + Y(Z) 


where X is of size zero and Y is an array~valued functions the 
Function r2ferenca Y(Z) need not ba avaltuated. If a statement 
contains a function raference In a part of an expression that need 
not be evaluateds all entities that would have become defined in the 
execution of that reference become undefined at the completion of 


avaluation of the expression containing the Function references. In. 


the axample aboves avaluation of the axprassion causes Z to become 
undefined if L defines its argument. 


e602 ORDER _OF_ EVALUATION DE_EUNCTIONS. 


If a statement contains more than one function references a 
processor may evaluate the functions in any orders», except for a 
logical IF statenent and aiefunction argument tlist containing 
Function raferences, For exennies the statement 


Y = F(G(X)) 


wore F and G are Punetionsy, recauires G to be evaluated before F is 


In a statement that contains.more than one function references the 
value provided by each function raferance must be independent of the 
arder chasen by the processor for avaluation of the function 
references» 


606.3 INTZGRITY CF PARENTHESES. 


Tha sections that follow state certain conditions under which a 
processor may evaluate an expression different from the one obtained 
oy applying the Interpretation rules givan in 6.1 through 65-6 
4Youevers any expression contained in parentheses must be treated as 
an entity. For exampley in evaluating the expression A*(B¥C)y the 
product of Bp and C must be evaluated and then multiplied by A$ the 
processor must not avaluatea the mathamatically equlyalant expression 
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OeO EXPRESSIINS 
605. 3 INTEGRITY OF PARENTHESES 


CA*BV*C e 
o+6e4 RESTRICTIONS OM APPEARANCE _OE_ARRAY_EXPRESSIONS 
Arraysvalued expressions may not appear: 

{1) As a fogical expresston of a togical IF statement 

(2) As a logical expression of a block IF or ELSE IF statement 


(3) As Bl» 229 or 23: 2xpressions of a DO statement 


(4) As an arithmetic expression in an arithmetic [IF statement 


{5) In a computed 66 TOs OPEN» CLOSE» INQUIRE, = or RETURN 
statement. 


(6) In the REC= specifier of a gilist 

(7) In a substring expression 

(8) As an external unit identifier 
606.5 EVALUATION. OE_ABLIMMEIIC 2x PRESSLONS 


The rufes given ha 6e01.2 specify the interpretation of an arithmetic 
expressione Once the interpretation has been established in 
accordance with those rulass thea processor may evaluate any 
Qathematically equivalent expressions provided that the integrity of 
parentheses is not violated. 


Two arithmetic expressions ara mathematically equivafent ifs for all 
possible values af their primartes and Boolean primartas (627elel)ys 
their mathematical values are equale Howevery mathematically 
equivalent arithmetic expressions may produce different 
computational result3e 


Tha mathematicajy definition of integer division is given in 6.1.56 
The djfference between the value of tha expression 5/2 and Se/2e is 
4 mathematical differences not 2a computational differencee If 

oolean operands (6.7.1) are present In an arithmetic expresstlons 
its operators may not have the associative and distributive 
properties that would yield mathematically équivalent expressions If 
all operands were arithmetice For exanples, the expressions 


=) + oi" + o*1" and 
20 + (ory +} yep") 


are not mathematically esquivelent. 
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The following are examples of exoressilonss aicng with allowable 
alternative forms. that may be used by the. processor in the 
evaluation of those exprassionse As Bs and C represent arbitrary 
reals double pracisions or complex operands: I and J represent 
arbitrary integer operands 3 and Xs» Yv~» and 2Z represent arbitrary 
arithmetic operands. 


ES ED ED EOF HER ee HOO SED ENED NEED EN OED OD Ott DOd REND CUE! ORD HOD NEED ED END AES OD OR EON OED + 


ft ee ie man ee a a ns + 

i Expression + Allowable Alternative Farm } 
fee ee ee me rat cee ee ee ee fe me re re ne ee ce te ee ee nor oe re oe et + 
‘ X+Y } NeX 4 
i XY i Y%X H 
H —X+yY H Y-X : 
H X#Y+2Z ; X+(Y42) : 
H X~VY+Z : X—{Y—Z) H 
; X* BIZ : X*(B/Z) i 
i X*Y—X*Z i X* (Y-Z) : 
i A/3/C : A/{B*C) H 
i A/5.0 } 042%A i 
Bn See eek eee emir neine seen See ee a aa aa a ha a + 


The following are examples of expressions along with forbidden forms 
that must not be used by the processor in the evaluation of those 
axpressionss 


On Ue ED RE WED Mee Hee THO EY PE SED WEE MOD Owe WEEE Ee SED eee EER GEN SED GEES OUD SOW NORD EY MED WED END SEED EPS “Oe Gene CHU GU CHS EONS CO Gerd GED OOS Sunt New GED OD ED 


I/J/A 


X¥* (Y-Z) 
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eH 
aa 
ine) 
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on 
we ce we oe ow 4} oe we + 
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In addition to the parentheses required to establish the desirad 
Interpretations parentheses may be included to restrict the 
alternative forms that may be used by the processor in the actual 
evaluation of the expression.e This is useful for controlling the 
Maunitude and scsuracy of intermediate valuss devaloped during the 
evaluation of an axpresstone For examples In the expression 


A+(B-C) 
thea term (8-C) must be evaluated and then added to A. Note that the 
inclusion of parentheses may change the mathematical value of an 


expressione For examples the two expressions: 


A*®I/J 
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ACIS) 


aay have different mathematical values if I and J are factors of 
integer data type. 


each operand of an arithmetic operator has a data type that may 
depend on the erder of evaluation used by the processor. For 
examples in the evaluation of the expression 


D+tR+1I 


where Dy Rs and I represent terms of double precisions realy and 
integer data type, respectivelys the data type of the operand that 
is added to I may ba either double precision or reals depending on 
which pair of operands (D and PRs R and Is or D and I1) js added 
Firste 


50606 EVALUATION NE_CHARACTER EXPRESSIONS 


The rules given in 6.2e2 specify the interpretation of a character 
expression as a string of characters. A processor needs to evaluate 
oniy as much of the chsracter exoression as is required by the 
context jn yhich the expression appearse For examples the 
statements 


CHARACTER*2 ClsC29C 39CF 
Cl = C2 // CF{(C3) 


do not require .the function CF to be evaluatedy because only the 
yaluea of C2 is needed to determine the value of Cl. 


Oe6e7 EVALUATION _ OE_RELATIONAL_EXPRESSIONS. 

The rulas given In 603-3 and 6-3-5 spacify the interpretation of 
relational axpressions. Once the Jntarpretation of an expression 
has been established tn accordance with those rulesys the processor 
may evaluate any athar expression that is relationally equivalent. 


For exampley the processor may choos2 toe evatiuate the relational! 
expression 


I sGTe J 
where I and J are Inteyer varlables»s as 
J — I Ars 0 


Tuyo ratational expressions are realationally equivalent if their 
fojglecal values are equal for all possIble velues of thelr primaries. 
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6.6.8 EVALUATION OF LOSTCAL_ EXPRESSIONS 
The rules given in 6e4e2 spacify the intarpratation of 2 togical 
axpressione Once the interpretation of an expression has been 
established in accordance with those  ruless the processor may 
evaluate any other expression that is logically equivalents provided 
that the inteyrity of parentheses is not violated. For examples the 
oroscessor may choose to evaluate the logical expression 

Li eAND, L2 eo AND. L3 
where Ll» L2» and L3 are togical variabless as 

Li AND. ({L2 AND. L3) 


Two logical expressions are logically equivalent if their values are 
nqual for al! possibla values of their primariese 


6.7 BOOLEAN_EXPRESSIONS | 
A Roolean_expression is Formed with logical operators and Boolean 
operands and/or arithmetic operands (641.2). Evaluation of a 
Boolean expression produces a result of type Boolean. 
Ge7el BOOLEAN OPERANDS 
The Bonlean_ operands are? 

(1) Boolean primary 

(2) Boolean factor 

(3) Boolean term 

-{4) Boolagen disjunct 


(5) Boolean expression 


The formation rules to be applied in establishing the interpretation 
of a Boolean expression are in Sections Ge7elel through bBe7ele5de 


6.7.1.1 Boolean _Peiaary 
The Boolean_-peimacies are! 
(1) Unsigned Boolean constant (4.9.1) 
(2) Symbolic name of a Boolean constant (8.6) 


(3) Boolean variable reference (2.5) 
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(4) Boolean arr ay alement referance (5,4) 

(5) Boolean function refarence (16.2) 

(6). Boolean array reference 

(7) Boolean array section referenca 

(8) Boolean expression enclosed in parentheses (6070125) 
Oe7els2 Boolean Factor 
The forms of 4 Boolean factor are 
| (1) Boolean primary 

(2) NOT. Boolean primary 

(3) NOT. arithmetic expression 
be7ele3 Boolsan_lera | 
The forms of 4a Boolean term are 

{1) Boolean factor 

(2) Boolean term w AND. Boolean factor 

(3) Boolean term »ANDe arithmetic expression 

(4) Arithmetic expression .AND*s Boolean Factor 

(5) Arithmetic expression »AND. arfthmetic expression 
Thus a Boolean term is a ss8quence of Boolsan factors and/or 
arithmetic axpressionss, separated by the eANDe operetor. Forms (2) 
and (3) indicate that in interpreting a Boolean term containing two 
or more eANDe operatorss the Boolean factors and arithmetic 
axprasslons are combined From left to right. 
. GeTvle4 Roolean_Disiunct 
The forms of a Boolaasn_distunst are: 

(1). Boolean term 

(2) Boolgan disjunct OR. Boolean Sern. 

(3) Boolean disjunct »OR. arithmetic expression 


(4) Arithmetic expression OR, Boolean term 
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(5) Arithmetic expression »OR. arithmetic expression : 
Thus a Boolean disjunct is a sequence of Boolean terms and/or 
arithmetic expressionss separated by the .QRe operatore Forms (2) 
ang (3) Indjcate that In interpreting a Boolean disjunct containing 
two or more eOR. operatorss the Boolean terms and arithmetic 
axprassions are combined from Jeft to right. . 
Ge721e5 Boolean Exaression 
The forms of a Booisan expressian are. 
| (1) Boolean disjunct 
(2) Boolean expression eEQVe Boolean disjunct 
(3) Boolean axpression eEQVe arithmetic expression 
(4) Arithmetic expression ,EQV. Boolean disjunct 
(5) Arithmetic expression eEQV. arithmetic eaxpression 
(6) Boolean axprasston »~NEQV. Boolean disjunct 
(7) Boolean expression «NEQV. arithmetic expression 
(3) Arithmetic expression «NEQVe Boolean disjunct 
(9) Arithmetic expression .NEQV.. arithmetic expression 
(10) Boolean expression eXORe Boolean disjunct 
(11) Boolean expression .XOR. arithmetic expression 
(12) Arithmetic expression »«XOR-e Boolean disjunct 
(13) Arithmetic axpression .XOR. arithmetic expression 
Thuss a Boolean expression is a sequence of Boolean disjuncts 
separated by the efQVes. »eNEQVes Or eXO0Re operators. Forms (2) (3)> 
(6)9 (7)9 (19)9 and (11) Endicate that in interpreting a Boolean 
axpression containing tno Or more eEQVex sHEQV.» or ~+XORe 
operatorss the Boolean disjuncts and arithmetic expressions afe 
combined from lteft to righte 
Se7e2 VALUE _ NE ROOLEAU_LEACTORSs TERMS» ANDLEXPRESSIONS 
If an operand is of type integers real» double precisions half 
pracisions or complex» it is converted to Boolean and the operation 
oertormed on the converted operand. Conversion to Boolean is by 


means of the generic function BOOL (16.10). 
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A Boolean operator determines each bit value of the value it yields 
independently of other bits of the value Fach bit value is 
datarmined from the corresponding bit values of the operand(s), 
{Two bit positions correspond if they have the same ordinal in their 
storage sequence within their respective storage unitse) | 


Fach bit value of a Boolean factor involving eNOTe Is shown below: 
ceed a 1S ete 


1 X2 raNOTe X23 


Ste OE AOD RD HED 6-40 Med ED 
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! 
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+ 
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Zach bit value of a Boolean term involving «AND. is shown below: 


fmt me ee me eee ee ae of ee mee meen ea oe + 
i XL F XZ EXT sANDs X21 
pm ame me fe me ee ee me of ae me a ne en me ee + 
a 
iO : 90 § 0 H 
fo tli 0 
ae oe 0 
re re 1 H 
a oe 
poe ene fern ef a ee ee + 


Each bit value of a Boolean expression involving ,.0R. is shown 
below | 


a a +. 
9 1. FOIA OR Oe A 
fee me pe een fe rene ene oe ee + 
H H H H 
i; Oo +0 4 9 H 
to Ss de 1 1 
+1 + 0 4 1 : 
> 1 321 | a H 
i i i i 
te 


Fach bit value of a Boolean expression involving e-EV. Is shown 
pelonws: 
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pre nf ee pene en ne + 
; XL +. X2 :Xl LEQ. X2 3 
a fe cet ae tee ne ee ne ee + 
H ' : i 
re, 20?) Gy 1 i 
+O +1 4 0 H 
> 1 7:90 fj 0 : 
i re 1 i 
1 a q 4 
foe poe me mc te ee + 


Each bit vatue of a Boolean expression involving .NEQV. (or XOR-) 
Is shown below: 


fermen $e fe ee + 
+ Xl 3 X2 YXL eNEQVe. X23 
a a + 
i : H H 
+O $9 $f 0 H 
;>O0O i121 $ 1 H 
il 390 § 1 H 
> 1 i121 3 0 4 
H : 4 H 
pase nen fe nen ne ee af a ee a ne oe mc a a oe + 


66703 BOOLEAN CONSTANT _EXPRESSTON 


A Boolean constant expression is a Boolean expression in which each 
Boolean prinary is a Bontean censtants the symbolic name. of a 
Boolean constants, or a Boolean constant expression enclosed in 
parenthesess and each arithmetic primary is an arithmetic constants 
thea symhojic name of an arithmetic constants, or an arithmetic 
constant expression enclosed in parentheses. 


An exteoded Boolean constent. @xprassion is a Boolean constent 
expression axcent? 


{1) selected elemental intrinsic functions are alloweds when 
referenced with constant argqumantsys 


(2) selected array-valued jJatrinsic functions are allowed, 


The list of allowed elemental and array-v3alued intrinsic functions 
i838 implementation depandant. 


$e8 CONSTANT_UEXPRESSIONS 
A sonstant sypression is an arithmetic can nstant expressien (6e1+-3)» 
a character constant expression (622.3), a bit constant expression 


-(6.9.3)5 a tlogical constant expression (66464), a Boolean constant 
axeresston (647.3)s or 4s bit constant axprassion (62943). 
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An axtanded constant expression is a constant expression except: 


(1) selected elemental intrinsic functions are alloweds when 
referenced with constant araqumentss 


(2) selected array-valued Intrinsic functions are allowed, 


The tlist of allowed elemental and array-valued intrinsic functions 
is implementation depandant. 


In order to eliminate circularity of definitions no variable or 
array name. may be referenced In an extended constant expression 
untess that variable or array has been defined in preceding 
specification statement(s)e. For expamples 


REAL At SIZE(B)) 
REAL B( SIZE(A)) 


is prohibited because 68 was referenced prior to its definition. 
6.9 BIT_EXPRESSIONS 


A hit expression is used to express a bit computation. Evaluation 
of a bit expression produces a result of type bits with a value of 
BVL" or BON, 


The simpiest form of a bit expression js a bit constants symbolic 
name of a bit constants bit variable references bit array element 
referé ances hit. array references, bit array section references or bit 
Function ravarance, ora complicated bit expressions may be formed 
using one or more bit operands together with bit operators and 
parentheses. | 


6e9el BIT_ OPERATORS. 


The bit operators are: 


foe 4 ----~----~ + 
: perator 3} Representing H 
fp mee ee crc me na ree a enn of tee re er oe nee ee om ane re en te a a of 
i e@BNOT. H Bit Negation H 
: BAND. } Bit Conjunction : 
: oBOR. : Bit Inclusive Disjunction $ 
H »BEAV, i Bit Equivalence | i 
+ eBNEQV. or | Bit Non-Equivalance i 
H eBXOR. i H 

+ + 


af mem oe wane COO tered GOR ED ED EER Owe 


i 
i 
1 
i 
! 
i 
! 
1 
! 
i 
I 
j 
j 
i 
I 
' 
} 
t 
{ 
J 
i 
t 
§ 
{ 
t 
1 
1 
1 
I 


CUNTROL DATA PRIVATE 


Be 6S On OH BE BSE OH HH HO Be Be 2S BH Oe 2H ESE oe at OH Oe Be 


on i es 6-34 
Control Data Corporation Standard FORTRAN 
an 83/06/30 
6.0 EXPRESSIONS _ 
Oe9e2 FORN AND INTERPRETATION OF BIT EXPRESSIONS. | 


20 108 Wd SO TAR OED Gee mane GER Come ERD ORO HMDA TIES OUD UE AED CER Ee AO AOD VO A A HD SN RE NE OD IR HN Heh MN HNO “UAE TN Nae AD Gree AO Cle Ml ES) AE AOU RE SERS GTS AN TD CN ATE ANP UES CUR GOR HED ENF LEED ERNE ND OU HOD ND GED MeN OED ED 


60902 EQRN AND INTERPREIATION_OE BII_EXPRESSIONS. 


A set of formation rules is used to establish the interpretation of 


a bit axprassion that contains two or more bit operators, There Is 
a precedence among the bit operatorss which determines the order in 
which the operands are to be combined unless the order is changed by 
the ania of parentheses, The precedence of the bit operators is = as 
follows | . 


poe a ee $e + 
i Operator | Precedence } 
sen ot me ot a 28 sam Ooh se LD SOE HO SD nee of ee ma one ee ane mse oe in se + 
i eBNOT. H Highest H 
i BAND. } H 
: eBORe H H 
PeBEQVes eBNEQVe Or eBXORe} Lorest } 
fp ms a sn ec ne a ee ae ne ee ee $- + 


For examples in the expression. 
A «BORs B «BAND. C 
the «BANDe Picentae has higher precedence than the .BOR. operator; 
thereforé@s the interpretation of the above expression Is the same as 
the Interpretation of the expression 
A .BOR. {(B «BAND. C) 
The bit gearands are? 
(1) Bit primary 
(2) Bit factor 
(3) Bt term 
(4) Bit disjunct 


(5) Bit axpression 


The formation rules to be applied in establishing the interpretation. 


of a bit expression are in 6e9e2e0e1 through 6e%e2e5e 
(Oe%e2e1 Bit_Prinariase 
The bit orimaries are: 

(1) Bit constant (412.1) 


(2) Symbolic name of a bit constant (8.6) 
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OeO EXPRESSIONS 
Oe9e.2e1 Bit Primariese 


{3) Bit variable ner epenes (2.5) 

(4) Bit array element reference (524) 

(5) Bit array referance 

(6) Bit array section reference 

(7) Bit Function raference (16.2) 

(8) BIt exoression enclosed In parentheses (669225) 
SeFe2e2 Bit Factors 


The forms of a bit 


{-3 
fo 
) 
tt 


For are 

{1) Bit primary 

(2) .BNOT. bit orimary 
9094203 Bit Terms 
The forms of « hit Bern are? 

{1) Bit factor 

(2) Bit tearm .BAND. hit factor 
Thuss a bit term Is a sequence of bit factors separated by the 
» SAND. operator. Form (2) indicates that in interpreting a bit 
term containing two or more »BANDe operatorss the bit fsetors are 
sonbined from left to right. 

09e20e% Bit Disiunct. 

Tha forms of a bik JdLisiunect are: 

(1) Bit term 

(2) Bit disjunct e.BOR. bit term 
Thuss abit disJunct Is a sequence of bit terms separated by the 
eBOR. operatore Form (2) indicates that in interpreting abit 
disjunct containing tyo or more eBOR. oparatorss, the bit terms are 
combined from laft to right. 
6090205 Bit <cxpressions 
The forms of a DLE axepression are: 

(1) Bit eaie 
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6.0 EXPRESSIONS 
OePe2e5 Bit Expressione 
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(2) Bit expression »BEQV. bit disjunct 

(3) Bit expression »BNEQV. bit disjunct 

(4) Bit expression »BXOR. bit disjunct 
Thus» a bit expression is a sequence of bit disjuncts separated by 
either. the ,BEAVes, e«BNEQVes or eBXOR. operator. Forms (2)» (3)>s 
and (4) Indieate that In Interpreting a bit expression containing 
two or more eBEQVes seBNEQVex0r «BXOR. operatorss the bit disjuncts 
are combined from loft to right. 


6.9.3 VALUE_NE_BIT FACTORS s_ TERMS» AND_EXPRESSIONS 


The value of a bit factor involving «BNOTs ‘Is shown below: 


: scombeadeatenierantentantentend pe me ene me + 
i ee + eBNOTe x2 $ 
Hf me me eee rae woe ie mc ana Spon me ee ee ee + 
; Bry ’ BNO’ : 
' BwoO” ' By" ' 
aotententententanteteantentens pre re ee sees mene ome 


The value of a bit term Involving »BAND. is shown below: 


sperms ea were ee oP nn Sr te ers Se ae eas of es ae ee nine ee ne rm ie + 
H xl ; ¥2 ae a e BAH De x2} 
$+—— +---= tee ree + 
? Burpy H Rvp 4 Rwy } 
: pey } Brg H RBrgN H 
: B mo" : BY 1" : B Le) 2? H 
; Bttgo” : Bo” : BNO 31 ‘ 
eee sae te ane are ane me me eee Se cn ee me mete ee ene a + 


The value of a bit disjunct involving .BOR. is shown below: 


fo woe om cov cme se ren ao ae es fe ee eee ee cee ee oe cove wet en emn ee ems ne + 
t xl 1 x2 ! yl eBORe x2 $ 
aaa a a on ee oareen es Fe me mmr on eon ee meee wore vot 
f Bele of Bey fy BMyM 
’ Buy H Bug ' Bry" . 
’ Brg” ' Buy H Bey H 
' BQ" } Bron : RQ H 
+—-—— sp a Se Sie net me es nee Hp ee a en ee ee + 


The value of a bit expression involving eBEOV. iS shorn below: 
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af ee ee ee ne +----ooO ter + 
i x1 H x2 + X21 e-BEQV. x2} 
of t00 cme oe ce ome mene om sane me fo eee ee mie me mere aren ee afr eee we me se ee est on ee se oe + 
’ Buy H Bry" ' “pn : 
Bry Bro" : BVO" $ 
' Bug } Bey ' Bro" : 
} BV } Bro : By" ‘ 
Sol enteateneeteatentontenton fe a re ee me $m ene ee + 


The value of a bit expression involving eBNEQV. or »«BXGR. is shown 
below: 


fear een cee fp seen ee pm a te ese + 
H x1 H x2 +XL eBNEQV. x2} 
: x1 i x2 $ x1 e-BXORe x2} 
ee eae ee asa ee fe ee een Jf ae ee ee + 
; Brit ; wy. : BO v ; 
: Reha as : BNO ; Bry" : 
; Bg ; ByL ; By we ; 
ce tBOe 2. BOM. 24 B70" 
fot ee $ eee een. oe a ne re we ae at a en + 


Sede4 BIT COUSTART_OXPRESSION. 


A hilt constant expression Is a bit expression in which each primary 
is a bit constants the symbolic name of a bit constants or a4 bit 
Gonstant expression anclosed in parentheses. tote that variables 
array element, and function references are not allowed. 


An extended bit constant @xpr®ssion is a hit constant expression 
except: 


(1) selected elemental intrinsic functions are allowedy when 
referenced with constant argqumantss 


(2) selected array-valued intrinsic functions sre allowed. 


The list of allowed elemental and array-yvyalued Intrinsic functions . 


is imolementation deeendant. 
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7e0 STATEMENT CLASSIFICATION 


Sach statement is classified as executable or nonexecutable,e 
Executable statements specify actions. and form an execution sequence 
in. an exacutabl2 programe Nonexecutable statements specify 
characterfstics» arrangements and initial values of data; contain 
aditina information; specify statement functions? classify program 
units; and specify entry points within subprograms. Nonexecutabdie: 
statements are not eart of the execution sequence. Nonexecutable 
statements may be Ilabeleds but such suencHene Jabels must not be 
used to control the execution SEQUENCE» 

Vel EXECUTABLE STATEMENTS 

The following statements are classified as exacutablie: 


(1) Arithaetics logical» statement label (ASSIGN)s bits Booleans 
and character assignment statements 


(2) Unconditional Gt TO» assigned GQ TOs and computed GO TO 
Statements 


(3) Arithmetic IF and logical IF statements | 
(4) Block IF» ELSE IF, ELSE, and END IF statements 
(5) CONTINUE statement 

(6) STOP and PAUSE statements 

(7) DO statement 


(8) READs WRITE» PRINT,» PUNCH, ENCODE, DECODEs, BUFFER IN y~ and 
BUFFER OUT statements 


(9) REWINDs BACKSPACE»  ENDFILEs OPEN,» CLOSEs and INQUIRE 
statements | 


(10) CALL and RETURN statements 
(11) ALLOCATE and FREE statements 


(12) Logical WHEREs Block WHERE» GTHERWISEs and ENDWHERE 
statements 


(13) IDENTIFY statement 
(14) FORALL statement 
(15) END statement 
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742 NONEXECUTABLE_STATZMENTS 


The following statements are classified as nonexecutables: 


(1) PROGRAMs FUNCTIONs SUBROUTINE, ENTRY». and BLOCK DATA 


statements 


(2) DIMENSION, = CONNONs EQUIVALENCE, IMPLICIT, PARAMETERS) 


EXTERNAL», INTRINSICs and SAVE statements 


{3) INTEGER» REAL» DOUBLE PRECISIAN, CONPLEXs LOGICAL» BITs HALF 
PRECISION, BOOLEAN, and CHARACTER type-statements 


(4) DATA statement 

(5) FORMAT statement 

(6) Statanent function statement 
(7) NAMELIST statement 

(8) ROWWISE statement 


(9) INTERFACE and END INTERFACE statements 
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8.0 SPECIFICATION STATEMENTS 


There are tualve kinds of specification statements: 
(1) DIMENSION 
(2) EQUIVALENCE 
(3) COMMON 


(4) INTEGER, REAL» DOUBLE PRECISION» HALF PRECISION» COMPLEX, 
LOGICAL»s BITs BOOLEANs and CHARACTER type-statements 


(5) IMPLICIT 
(6) PARAMETER 
(7) EXTERNAL 
{8) INTRINSIC 
(9). SAVE 
(10) ROWWISE 
(11) Procedure interface informations INTERFACE and END INTERFACE 
(12) VIRTUAL 
Al} SneciPianeion statements are nonexecutable. 
8.1 DINENSLUY_STALSNENT 


A DIMENSION statement is used to specify the symbolic names and 
dimension specifications of arrayse 


The form of a DIMENSION statement is: 
DIMENSION a(d) EC»sald)]... 
where each ald) is an array deaclarator (5462). 
Each symbolic name a appearing in a DIMENSION statement declares a 
to be an array in that program unlte Note that array declarators 


nay ajso apnear in COMNON statements, and type-statementse Only one 
appearance of .a symbolic name as an array name in an array 


Yecilarator in a program unit Is permitted. 
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Bee EQ UIVALENCE STATEMENT 
An EQUIVALE NCE statement is used to spacify the sharing of storage 


units by two or more entities In a program unit. This causes 
association of the entities that share the storage units. 


If the equivalenced entities are of dyfferent data typesy thea 
EQUIVALENCE statement does not cause type converston or Imply 
mathematical equivatenca. If ae variable and an array are 
egquivalencedys the variable does not have array properties and the 
array does not hava tha properties of a variable. 

8.221 EQRMN_OE_AN_EQUIVALENCE STATEMENT | 

The form of an EQUIVALENCE statement is? 


whe re each nlist is a list (2e11) of variable namess arréy element 


naness arrays’ nmamess and character substring names. Each tist must 
contain at least two namese Names of dummy arguments of an external 
procedure in a subprogram and allocatable arrays must not app#ar in 


the fist. If « varisble name or array name is alsa @ Function name 
(15.56e1)5 tiat name must not appear in the list. 


Zach subscript expression or substring expression in a list plist 
must be an axtended integer constant 2xpression. 


8.2.2 SQUIVALENCE _ASSOCTATION. 


An EQUIVALENCE statamant specifies that the storage sequences of the 
antities whose names appear ina itlist oblist share the same first 
storage unit. This causas the association of the entities in the 
list niist and may cause association of other entities (18.1). 


(30203 EQUIVALENCE SE _ENTITIES_QE_DIFFERENT_IYPES 


An entity of any type may be equivalenced with entities of other 
typese The ftengths of the equivalenced entities are not required to 
be the samme Howeyers alignmentss as specifled by the usery must 
conform with the alignments as shown In the following tables Table 
O53 
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Re2e3 EQUIVALENCE ODF ENTITIES OF DIFFE RENT TYPES 

Table 6 
ALIGNMENT REQUIRENENTS FOR 
EQUIVALENCE(X1» X2) 

pn ae om mates en ae ee ee in ne fe ee ee ee sa a ee ee ee ee ee of a ce eo a a soe a a eet eee + 
H x2 $ Integers Reals! ' : 4 
H  ? Double ! Half i Characters Bit i 
; ‘ precisions + precision 3} ; H 
' x1 : Complexy ; ' H H 
i i Logical, i : H ; 
i 1 Boolean H i i ’ 
ofp ee ae me a es a van mane fe in mee ee a ee ee fe ee mee me ee $m a oe + 
} Integers Realyt H : : ; 
i Doubia ; Wumeric } Numeric $ Numeric it Numeric 3 } 
i orecisions H H H : H 
+ Complexs H ; : H H 
i} Logicalys : i H H i 
' Boolean i : i ; ; 
fee ee ee eee Seen erie are a ae ae ee fae me ee ee fee e nme meee fee enn ——+ 
H i | + Hal fe i Half- } Half- H 
! Half oracision! Numeric i; numerjc { numeric : numerfc { 
fee ef nn ff fe eet 
i ; + Halfe H | : i 
+ Character ; Hunmaric + numeric | Character; Character} 
spon ena am nenene en me eee $e ee $a $n e + 
H : ; Half- : ; : 
i Bit +; Numeric ; numeric {| Character: Bit i 
ofp eae ca en ae me are nro eo fp meee eee mee ee eee ee femme me ee fee ane er mt nee $e + 


An EQUIVALENC® statement specifies that the storage sequences of the 
character entities whose names appe#r in a list alist share the same 
First character storage unite This causes the association of the 
entities in the fist olist and may cause association of other 
antities (18.1). Any adjacent characters In the associated entities 
may also have the same character storage unit and thus may also be 
associatede In the example: 


CHARACTER A**4y B¥4y C(2)¥*3 
EQUIVALENCE (AsC(1))5 (ByC(2)) 


the association of As By and C can be graphically illustrated as: 


101'02103304105106:073 


reeC( Teste C (2 j= 


CONTROL DATA PRIVATE 


e-3 . 


wae Be be 


sea eat S22 eS ae 


| : 8=4 
Control Data Corporation Standard FORTRAN 


83/06/30 


SD OT A ER AE AR UND ED BETS PRS HEM AS need ED AEDT ens TED SHED WED LAND WAND MANE ANG LEED OE WM GERD TTD TOD HED GUD IRS MNT MOD TEE GE PE LETS STR TG GUE) SEE PS al ea eae aN Gab SHOT Mawe HEND WASD AND SI inde TDD GRD GOURD AED AONE SENT: SNES GUA GD SER SD wD CON 


O SPECIFICATION STATEMENTS 
204 ARRAY NAMES AND ARRAY ELEMENT NAMES. 


7A a TeNt OOD ND ED UND ND Ete AND SEED GOD TE Cind WaN HED AAD LED SOND WORD AED HUD HD AED Ge ED SE SAE NY AD OD Ga SED Mi SED SEED ED SE 0 OE AE END SND AD VOD SRO AED SAT TS RRND ERE ND SEND EEE OD AD ee GEDA WED GRE SEED HD Gee EEN ia GD Ee CO 


eee Cem re Creer ee tee 


If an array element name appears [n an EQUIVALENCE statements, the 
number of subscript expressions must be the same as the number of 
dimensions specified in the array declarator for thea array namee 


The use of an array name unaualified by a subscript in an 
EQUIVALENCE statement has the same effect.as using .an array element 
name that identifies the first alament of the array. 


Bo2e5 RESTRICTIONS _ON_E QUIVALENCE STATEMENTS. 


An EQUIVALENCE statement must not contain virtues} (IDENTIFY) = array 
Nemes, automatic array namesys or allocatable array names, 


Alignmentss as specified by the us@rs must conform with the 
alignments as shown In Table 6. 


An EQUIVALENCE statement must not specify that the same storage unit 
is to occur more than once in a storage sequence. For examples 


INENSION A(2) 
EQUIVALENCE (A(1)3B)y9 (A(2)5B) 


is prohibiteds because {tt would specify tha same storage unit for 
A(1) and A(2), An EQUIVALENCE statement must not specify that 
consecutive storage units are to be nonconsecutivee For examples 
the following is prohibited: 


REAL AC2) 
DOUBLE PRECISION D{2) 
EQUIVALENCE (AC1)sD01))5 (A(2)sD(2)) 


3e3 CONMODM STATEMENT 
The COMMON statement provides a means of associating entities in 
different program unitse This allows different program units to 
‘Jefine and reference the seme date without using ergumantss snd to 
share storage units. 


For COMMON the compiler will allocate storage in. conformance with 
requirements as specified In the following tables, Table 7: 
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Table_Z 
ALIGNMENT REQUIREMENTS... 
For COMMON 


; H H 
i TYPE § BOUNDARY ‘ 
: : ; 
fm ee se a ee ee pce rc te a ee ee + 
: Inteyer H ‘ 
i Rael ; : 
: Doble precision : Numeric : 
+ Comp! ex H : 
i Logical} ; H 
: Boolean H : 
Sn tne a me ee me oe of nee mene econ cae a ee en ee of 
i} Half precision | Half=<numeric! 
frre $---- + 
; Character i; Character : 
fe ee ee ee me om fp ee ae tees we et ee te + 
; Bit +; Bit H 
4 $e + 


Besel FORN_OE A _CONNON STATEMENT. 
The form of a COMMON statement is: 
COMMON C/CebI/] olist CLsI]/Cebl/ olistlee. 
where: eh is a common block name (1922.1) 
olist is a list (2.11) of variable.namesy array namesy = and 
array daclaratorse Oniy one appsarance of a symbolic 
Name as a varjJable names array names or array declarator 


is permitted in all such lists within a program unit. 
Names of dummy arguments of an extarnal procedure in a 


subprogram must not apoear In the liste If 3a variable. 


name is also a function name (16.5e1l)5 that name must not 
appear in the liste 


Each omittad gh specifies the blank common block. f the first gb 
is omitteds the first two slashes are optional. 


In each COMMON statements, the entities whose names appear in-= an 
nilst following a black name ch are declared to be fin common block 
ch. If the first ch is omitteds all entities whose names appear in 
the first nplist are spacified to be In blank commons Alternativelys 
the appearance of two sJashes with no block name between them 
declares the antitias wswhos2 names appear in the list plist that 
follows to be in blank common. ; . 
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Any .common block name cb or an omitted cb for blank common may occur 
more than ence in one or more COMNON statements In a program unite 
The Jist glist following each successive appearance of the same 
common block. name is treated as a continuation of the tist for that 
common block name. . . 


843.2 COMMON BLOCK STORAGE SEQUENCE. 


For each common blocks a Gamman block starase sadquence is formed as 
follows: 


42) A storage sequence is formed consisting of the storage 
seguances of all entities in the tists nlist for the common 


blocke The order of the storage sequence is the same as the 
order of the appearanca of the lists alist in the program 
unite 


(2) The storage sequence formed in (1) is extende d to include all 

 gtorage units of any storage sequence associated with it by 

equivalence association. The sequence may be extended only 

by adding storage units beyond the fast storage unite 

Entities associated with an entity in a common block are 
considered to. be in that common block. 


8.3.3 SIZE_OE_A COMNON BLOCK. 


The size of 3 common black is the size of its common block storage 
sequences including any extensions of the sequence resulting from 
equivalence association. 


Within an executable programs all named common blocks that have the 
same name must be the same size. Blank common blocks within an 
executable program are not required to be the same size. 


8.3.4 COMMON ASSOCLATION. 


Within an executable programs the common block storage sequences of 
all common blocks with the sam2 name have the same first storaga 
wnite Within an executable programs, the common biock storage 
sequences of all blank common blocks have the same first storage 
unite This results in the association (18.1) of entities in 
differant program unitse 


5 DIFFERENCES BETWEEN NANED_COMMON_AND_BLANK_COMMON 


A plank common hlosck has the same properties as a Named common 
blocky except for the following: 


(1). Execution of a RETURN or END statement sometimes causes 
entities in named common blocks to become undefined but never 
causes entities In blank common to become undefined (16.8.4). 
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(2) Named CO mHon biocks of the sam2 name must be of the same size 
in all program units of an executabje program in which they 
appears but blank common blocks may be of different sizese 


(3) Entities in named common blocks may be initially defined by. 


means of a DATA statement [In any program units but entities 
In blank common must not be initially defined (Section 9). 


8306 RESTRICTIONS _ON_CONNON AND EQUIVALENCE. 


An EQUIVALENCE statamant must not cause the storage sequences of two. 


different common blocks in the same program unit to be associated. 
Equivalence association must not cause a common hbliock = storage 
sequence to be extandead by adding storaye units preceding the first 
storage unit of the first entity specified in a COMMON statement for 
the common blocke For examples the following is not permitted: 


COMMON /A/A 
REAL B(2) 
SQUIVALENCE (AxB(2))- 


Virtual (IDENTIFY) arrayss automatic arrayss and allocatable arrays 
May not be specifjed in a COMMON statement, 


Re4 IYPESSIAIENENIS 


A evver-statement Is used to override or confirm implicit typing and 
may specify dimension information. 


The appearance of che symbolic name of a constants variables arrays 
axternel funetlions or statemant functlon in a type-statement 
specifies the data type for that name for all appearances in the 
program unite Within a program units a name must not have its type 
axplicitiy specified more than once. 


A type-statement that. confirms the type of an intrinsic function 
whose nama appears in the Specific Name column of Table 5 Is not 
reyulreds but is parmitted. If a generic function name appears In a 


type-statements such an appearance is not sufficient by itself to 
remove the generic properties from that functions 


The name of a twain programs subroutines or block data subprogram 
nust not appear [{n a type-statement. 


Se4el BIT: BOOLEANs AND ARLIHNEIIC IYPE-SIAIEUENTS 


An INTEGERs REAL» DOUBLE PRECISIONs HALF PRECISION» COMPLEX» 
LOGICALs BITs or BODL"EAN type-statement is of the form 


fLxvo uM Codecs 
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typ is one of INTEGER» REAL» DOUBLE PRECISIONy HALF 
PRECISIONs COMPLEX» LOGICALs BIT, or BOOLEAN 


Vic woks a variable namey array namey array 
declaratory symbolic name of a constants 
function names or dummy procedure name 
(19.2211). . . 


Be4e2 CHARACTER TYPE=STATEMENT. 
- The form of a CHARACTER type-statement js! 
CHARACTER C¥len C1] nam Cenamles. 


where? nay is of one of the forms?. 


v [¥len} 
ga ((4)] C*Llan 

M is a variable names symbolic name of a constants function 
names or dummy procedure nane 

a is an array name 


afd) is an array dectarator 


len is the tfength (number of characters) of a character 
yariables character array eleamenty character constant 


that has a symbolic names or character functions and Is 


called the Lenath specification. jen is one of the 
following: 


(1) An unsijgneds nonzeros integer constant 


(2) An extended integer constant expression (6s Lle3el) 
enclosad in parentheses and with a positive vajlue 


we 


(3) An asterisk in parenthesesys (*) 


A length Len immediataly following the ssord CHARACTER is the IJenath 
specification for each entity in the statement not having its own 
Jength specificatione A length specification immediately following 
an entity is the fength specification for oni» that entitye Note 
that for an arrays the length specifled Is for each array element. 
If a tength is not specified for an entitys its length is one, 


An antity <dsclared in a CHARACTER statement must have a length 
specification that Is an extended Integer constant expressions 
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unless that antity Is an external functions a dummy argument of an 
external procedures oor a character constant that has a symbolic 
names 


Tf a dummy argument has a Lean of (*) declareds the dummy argument 
assumes the length of the associated actual argument for each 
reference of the subroutine or functione If the associated actual 
argument is an array names the length assumed by the dummy. argument 


Is the length of an array element In the associated actual argument 
ArT AV e 
If an axternel iFunetion has a lan of (*) declered in a function 


subprograms the function name must appear as the name of a_ function 
in a FUNCTION or ENTRY statement in the same subprograme When a 
roefarance to such a function is executed, the function assumes the 
ftensth specified in the referencing program unite 


The length specified for a character function in the program unit 
that references the function must b@ an extended integer constant 
expression. and must agree with the Jlenyth speciffled in the 
subprogram that specifies the fFunctione Note that there always is 
agreement of tfength if a len of (*) Is specified in the subprogram 
that specifies the function. | 


Tf a character constant that has a symbolic name has a len of (*) 
decilareds the constant assumes the Jength of its corresponding 
extended constant expression In a PARAMETER statemente 


The tength specified for a character statament function or statement 
function dummy argument of type character must be an extended 
Integer constant expression. 


8.5 IMPLICLI_SIALENENT 


An IMPLICIT statement Is used to change or confirm the default 
implied inteyer and real typinge | 


The form of an IMPLICIT statament is: 
INPLICIT typ (a Lx ales) Cestvo (a [Cesaleeedleos 


aharet gyp is one of INTEGER» REAL» DOUBLE PRECISION, HALF 
PRECISIONs COMPLEX, LOGICAL, BIT, BOOQLEANs or CHARACTER 
[*lend 


is either a single Jetter or a range of single ltetters in 
alphabetical .order. A range is denoted by the first and 
last fatter of the range separated by a minuSe Writing a 
range of latters a1 - a2 has the same effect as writing a 
list of the single letters al through g2. 


te 
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8.5 IMPLICIT STATEMENT 


len is the length of the character entities and is one of the. 


following: 


(1) An unsigneds nonzeros integer constant 


(2) An. extended integer constant ‘expression (6ele30e1) 


enclosed in voarentheses and with a positive value 


Tf len is not specifieds the length is oné@.e 


An IMPLICIT statement specifles a type for all variablesy» arraysy 
symbolic names of constantss external functionss and statement 
functions that begin with any tfetter that appears in the 


specifications either as a single Jatter or included in @ range of 
letters. IMPLICIT statements do not change the type of any 
intrinsic functionse An IMPLICIT statement applies only to the 
program unit that contains ite 26 


Type spacificaticon by an IMPLICIT statement may be overridden or 


confirmed for any particular. variable», arrays symbolic.name of a 


constants external functions or statement function name by the 
apesarance of that name in a3 type-statenent. An explicit type 
specification in a FUNCTION statement overrides an IMPLICIT 
statement for the name of that function subproorame Note that the 
length is also overridden vhen ai particular name appears In a 
CHARACTER or CHARACTER FUNCTION statement. 


Within the specification statements of a program units IMPLICIT 
statements must precede all othar specification stataments except 
PARAMETER statements. A program unit may contain more than one 
IMPLICIT statement. 

The same lezter must not appear as a Singte letter» or be included 


in a range of letters» more than once tn all of the IMPLICIT 
statements in a program unite 


3e6 PARAMETER STATZUERT 
A PARAMETER statement is used to give a constant a symbolic name@e 
The form of a PARANETER statement is? 
PARAMETER (n=e@ Cesp=eleee) 

wheres pa is 2 symbolic name 

g is an extended constant expression (6.27) 
If the symbolic naman is of type intezers reals doutie precision» 
half precisions complexs or Booleans the corresponding expression eg 


must be either an extended arithmetic constant exprassion (6e123) or 
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an extended Boolean constant expression (6e7e3)-6 If the symbolic 


name pis of type characters bits or logical» the corresponding 
expression e must be an extended. character constant expression 
(6502e3)9 an axtendad hit constant expressions or an extended logical 
constant expression (62424), respective lye 


Each p is the symbolic name of a constant that becomes defined with 
the value determined from the expression a2 that appears on the right 
of the equailss in accordance with the rules’ for assignment 
statements (10el» 1002s and 104). 


Any symbolic name of a constant that appears in an expression g must 
have been defined previously in the same or a differant PARAMETER 
statement in the same program unit. 


A symbolic name of a constant must not become defined more than once 
in a program unite 


If a symbolic name of a constant is net of default implied types its 
type must be specified by a type-statement or IMPLICIT statement 
prior to its first appearance in a PARAMETER statement. If the 
length specified for the symbolic name of ai constant of type 
character is not the default length of anes its length must be 
specified in a typemstatement or IMPLICIT statement prior to the 
First appearance of the symbolic name of thea sonstente Its tength 
nust not be changed by subsequent statements inctuding IMPLICIT 
statements. . 


nce such a symbolic name is defineds that name may appear in that 
program unit in any subsequent statement as a oeprinrary In an 
expressions in a DATA statement (9.1)» or as the real or imaginary 


part of a complex constant. It may also appear in a CS$-directive as 
a primary in a eryprassion or aS a parameter valuee A symbolic name 
of a constant must not be part of a format specificatjone 


A symbolic name in a PARANETER statement may identify only the 
corresponding constant in that program unite 


Ge 7 EXTERNAL STATEMENT 
An EXTERNAL statement is used to identify a symbolic name as 
representing an external procedure or dummy procedures and to permit 
such a name to be used as an actual argument. 
The Form of an EXTERNAL statement is: 

cXTERNAL Brog Csoroclees 
where each proc is the name of an external procedures dummy 


praceduras or block data subprograms 
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Appearance of @ name In an EXTERNAL statement declares that name to 
be an external procedure names dummy procedure namey or block data 
subprogram name. If an external procedure name or a dummy procedure 
nane is used as en actyal argunent In a program units {ft must appear 
in an EXTERNAL .statement in that program unit. Note that a 
statement function name must not appear in an EXTERNAL statement. 


If .an intrinsic function name appears In an EXTERNAL statement In a 
orogram units that name becomes the name of some external procedure 
and an intrinsic function of the same name is not availiable for 
reference in the program unite. 


Oniy one appearance of a symbolic name in all of the EXTERNAL 
statements of a program unit is permitted. . 


86S LHIRINSLE STATSUENT 


An INTRINSIC statement is used to identify a symbolic name as 
repres@entinjg an intrinsic function (16.3)+4¢ It also permits a. name 
that represents a specific tntrinsic function to ba used as an 
actual argument. 


The form of an INTRINSIC statament is: 
INTRINSIC fun Csfunl... 


where each €un is an intrinsic function namée 
Appearance of a nane In an INTRINSIC statement declares that name to 
be an intrinsic function names. If a specific name of an intrinsic 
function is us¢d as an actual argument in a program units {it must 
noppear in an INTRINSIC statement in that program unlit. The names of 
intrinsic functions for type conversion (CINTs IFIX» IHINTs IDINT» 
FLOATs SNGL» HALF, EXTEND, REAL» ODBLEs BONLs BTOLs LTOBs CMPLXy» 
ICHAR, CHAR)» lexical relationship (LGE»s LGTs LLE»s LLT) and = =“for 
choosing the (largest or smallest value (MAX» MAXOs AMAX1s DMAX1»s 
AMAXOs MAX1s MNINs HINO, AMINIs DMINIs ANINOs MINI) must not be used 
as actual aragumonts e The names of Intrinsic functions for 
eerforning logical operations (AND» OR» XORs EQVs NEQV) aiso must 
not be used as actual arguments. 


The appearance of a genaric function name in en INTRINSIC statement 
doas not cause that nane to lose Its generic property. 


Only one appearance of a symbolic name in all of the INTRINSIC 
statements of a program unit is permitted. Nota that a symbolic 
name must nek appear in both an EXTERNAL and an INTRINSIC statement 
in a program unite 
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8.9 SAVE_STATSMENT 


A SAVE statement is used to retain the definition status of an 
neoity after the execution of a RETURN or END statement in a 
subprograms. Within a function or subroutine subprograms an entity 
spacified by 2 SAVE statement does not bacome undefined as a result 


of tha execution of a RETURN or END statement in the subprograme > 
‘HWowevers such an .entity in a common bliock may become yndefined or 


redefined in anoth®r program unite 
The form of a SAVE statement Ist 
SAVE La Lealeee] 
share each 4 is a named common biock nane preceded and followed by a 
Slashy a variable namey or an array namee Redundant appearances of 


an item are not permitted. 


Dummy argumant namess procedure names» and names of antities In a 
somnon block must not appear in a SAVE statement, 


Virtual (IDENTIFY) arrayss and automatic arrays may not be specified 
in a SAVE statement. 


A SAVE statement without a list is treated as though it contained 
the names of all allowable items in that program unite 


The appearance of a common biock name preceded and followed by a 
slash in a SAVE statement has the effect of specifying all of the 
entities in that common blocks 


If a particular common block name Is specified by a SAVE statement 
in a subprogram of an executable programy it must be specified by a 


SAVe statement in every subprogram in which that common block: 


APDa@arSe 
A SAVE statement Is optional In a main program and has no effect. 


If a named common block is specified in a SAVE statement in a 
subprograms the current values of the entities in the common block 
storage seguence (8.3.3) at the time a RETURN or END statement is 
executed are made available to the next program unit that specifies 
that common block name in the execution sequence of an executable 
Df Or aMe | 


If a named common block is specified in the main program unity the 
current values of tha common bhiock storage sequence are made 
avallabie to each subprojrem that specifies that named common black; 
a SAVE statement in the subprogram has no effect. 

The definition status of each entity in tha namad common block 
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| storage sequence depends on the association that has bean 


ascablishad for the common block Storage sequence (18.2 and 18.3). 


If a local entity that is specified by a SAVE statement and is not 
in a common block is in a defined state at the time a RETURN or END 
statement is. axyacutead in a subprograms, that entity is defined with 
the same valua at the next reference of that subprogram. 


The axecution of 3 RETURN statement or an END statement within a 
subprogram causes all entities within the subprogram to become 
undefined except for the following: 

(1) Entities specified by SAVE statements 


(2) entities in blank common 


(3) Initially defined entities that have neither bsen redefined 
nor baceme undefined 


(4) Entities in a named common block that appears in the 
subprogram and appeers In at least one other program unit 
that js referancings ether djrectiy or indirectlysy that 
subprogram 


810 ROWWISE STATEUEUT 


An array name appearing in a ROWWISE statement declares that array 
to be stored in row order (5e5e3)0 


The form of a ROWHISE statement Is? 
ROWWISE alsaleecs 
where each 4a Is an array name 
An array mame that is declared in a ROWWISE statement must appear 


4ith an array ceclarator in a type specifications DIMENSIOQNs or 
CONNON statement. 


Sell PROCEDURE TRTSREACE INEORHATION 


The form of a procedure interface information block is: 


INTERFACE 
Loterfaca=dasariotion 
Cinterface=Jescription 


: ’ J 
END INTERFACE 
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B®.1ll PROCEDURE INTERFACE INFORMATION 
where the form of an interfage=descriotion is: 
headar-statamant 
Cspecification=statements] 
wheret 


header-statement is a SUBROUTINE or FUNCTION. 


statement 


specification-staterments describe the dummy arguments and 
Functional results if applicable, 
of the procedure 


A procedure interface information block specifies information about 
an external subprogram. Specification of an external subprogram in 


an interface information block is optional except for user 
array-valued functions which must be specified if they are to be 
referenced. The specificetion information must include the numbers 


orders and type of dummy arguments, whether a dummy argument is. an 
array (whether it is rowwise or columnwise must be specified) or 
note For array-valued functionss tha shape of the function result 
must be specifled. 


A subroutine or function name appearing in a SUBROUTINE or FUNCTION 
statement of an interface description may be an external or dummy 
procédura in the program unlit containing the Interface description. 
If the name is an external procedure names the interface information 
given by the interface description overrides (for the program unit 
containing it) the interface information appaaring in the actual 
program unit defining the external procedures 


A procedure interface information block may appear where "Other 
Specification Statements’ may appear, 


Procedure Interface Information way be unavallable For an external 
procedure because the external procedure jis specified by means other 
than a FORTRAN subprograme 

Mel2 VIRTUAL STATEMENT 


A VIRTUAL statement is used to specify tha symbollc names and number 
of dimensions of virtual arrays to be used in IDENTIFY statements. 


The form of a VIRTUAL statement is? 
— WERTUAL 4(d)Loald) lees 


where each ald) is an allocatab!iea array declarator (5626223). 
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eacn symbolic name a appaaring in a VIRTUAL statement declares ga to 
be a virtual array in that program unity and defines the rank of gq 
throughout the program unite 


Onfy one appearance oF a symbolic name as an array name in an array 
declarator in a program unit is. permitted. 


CONTROL DATA PRIVATE 


Ce ef eT ee ee) 


Control Data Corporation Standard FORTRAN 
83/06/30 


Re ee ee TT ee eT 


9.0 DATA STATEMENT 


9.0 DATA_STALENENT 


A DATA statenent [Is used to provide Initial values for variablesy 
arraySs array elements: and substringse .A DATA statement is 
nonaxecutabla end may appear In a program unit anywhere after the 
specification statementss If any. | 


AN initially defined entities are defined when an executable 
program begins execution. All antitizs not initially defineds», nor 
associated with an iInittally defined entitys are undefined at the 
beginning of execution of an executable programe > 
9.1 EGRN_OE_LA_DATA_STATENENT 
The form of a DATA statement Is? 

DATA nlist /clists [ls] nlist /clist/]e.e. 


where: niist is a list (2.11) of varlabje names» array namesy array 
element namesys substring names»s and implied=-DS fists 


eliss is a list of the form: 
a Cealees 


where a is ons of tha forms: 


c 
L¥g 
clefscd,.+) 
c is a constant or the symbolic name of a constant 
is is a nonzerors unsigneds, t[nteger constant or the 


symbolic name of such a constant. The gec¥g form is 
equivalant to £ successive appearances cf the 
constant co. The clglycl..e) form is equivalent to rc 
successive appearances of the fist oclscl... in 
nolist. 


942 DATA_STATEMENT_ RESTRICTIONS 


Names of dummy arguments, functionss virtual arrayss and entities in 
biank common (including entities associated with an entity in blank 
common) must not appear in the list nlist. 


There must ba the same number of items spacified by eech list olist 
and. its corresponding list clist. There is a one-to-one 
correspondence hetween the tfttems specifled by alist and the 
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constants specified by clist such that the first tem of noliist 
corresponds to the first constant of clists, etce By this 
correspondences the initial value Is established and the entity Is 
initially defined. If an array name without a subscript is in the 
lists there must be one constant for each element of that arraye 


Tha orderiny of array elements is determined by the array element | 


subscript value (52344). 


The type of the olist entity and the type of the corresponding clist 
constant must agree when alther ts of type characters, bits or 
logical. When the nlist entity is of type integers reals» double 
presisions, half pracisions Booleens or complexy corresponding slist 
constant must also be of type jntegers reals double precisions half 
precisions Booleans. or complex; if necessarys the glist constant is 
eonyerted to the type of the oatist entity according to the rules for 
arithmetic conversion (Table 4)» or Boolean conversion (10-6). Note 
thats if an alist entity is of type double precision and the slist 
constant is of type realy the processor may supply more precision 
derived from the constant than can be contained in a real datume If 
an .olist entity is of type doubla precision and the oclist constant 
is of type half precisiony the processor may supply more precision 
derived from the constant than can be contained in a half precision 


datume If an pliss entity is of type real and the glist constant is 


of type half precisions the processor may supply more precision 
derived from the constant than can be contained in a half precision 
datums | 


Ans variable» array elements or substring may be initially defined 
except for: | 


{1) an entity that is a dummy arguments 


(2) an entity in blank commons which tinctudes an entity 
associated with an entity in blank commons or 


(3) a varlable in a functlon subprogrem whose name Is also the 
name of the function subprogram or an entry in' the function 
. subprograms or 


{4) an entity that is a virtual! arraye 


A variable, array elements, or substring must not be initially 
defined more than once in an executable programe If two entities 
are associatedy only one may he initially defined in a DATA 
Statement in the sane axecutable orogran. Note that zero sized 
arrays and zero Jength substrings are initially defined and 
therefore must not be defined in a DATA statemente 


Each subscrint expression in the ltlst nlist must be an extended 
integer constant expression axcept for implied-pOe-variables as noted 
In 963- Each substring expressfton In the fist nilist must be an 
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axtended Integer constant expression. 
9.3 IUPLIZD=DO_IN_A_DATA STATEMENT | 
Thea form of an implied-DO tist in a DATA statement Is: 
{ dlist> 1+ ml» 2 Tso3 ] ) 
yhareas dilsé is 4 list of array element names and Impeltled—DO 


is the name of an integer variables, called the 
inelisd-DoO-varlable 


f= 


Ml» mes 03 are each a sGalar extanded integer constant 
eaxyuressions except that the expression may contaln 
implied-DO-variables of other implied-DO lists that have 
this implied=<DO list within their rangese 


The range of an impifed-DO list ts the fist dgdilist. An fteration. 


count and the values of the implied-DO—variable are established from 
gl» m2, and 93 exactly as for a DO-foop (11.10)» axcenpt that the 
iteration count must be positives. When an impJ!ied-DO list appears 
in a DATA statements the list. items in dlist are spacified once for 
gach literation of the impiied-DO list with the enoprepriate 
substitution of values for any occurrence of the implied-DO-variable 
Le The appearance of an implied-DO—variable name in ae DATA 
statement dyes not affect the definition status of a varieble of the 
same name in the same program unite 


eacn subscript axpression in the Jist dlist must be en extended 
Integer constant expressions except that the expression may contain 
implied-DO—-variables of implied-p0 lists that have the subscript 
axoression within their ranges. 


The following is an exanpte of a DATA statement that contains 
implied-DO tists: 


DATA (€ X€JeT)» T=lyJ)s J=155) / 15*0, / 
9-4 CHARACTER CONSTANT_IN_A_DATA_STATE MENT 


An antity in the list eliskt that corresponds to a character constent 
must be of type character, 


If the length of the character entity in the list olist is greater 
than the length of its corresponding character constant,y the 
additional rightmost characters in the entity are initially defined 
yith blank charactarse 

If the length of the character entity in the list olist is less than 
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the length of its corresponding character constants the additional 
“rightmost characters in the constant are ignorede : 


Nota thet Initial dafinition of @ character entity causes definition 
of all of the characters in the entity» and that each character 
constant initially defines exactly one variables array elementy or 
substring. | 
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1000 ASSIGNMENT STATEMENTS 


Conpletion of execution of an assftanment statement causes definition 
of an entity, except in the case of the IDENTIFY statement. 
Thar# are seven kinds of asslanment statements? 

(1) Arithmetic 

(2) Logical 

(3) Statement label (ASSIGN) 

(4) Character 

(5) Boolsan 

(6) Bit 

(7) Array assignment statements (IDENTIFY and FORALL) 
10.1 ARITHHETIC_ ASSTSGUMENT STATEMENT 


The form of an arithmetic assignment statament is: 


Ye 
where? v is the name of a variables, arrays array sections or array 


element of type Integers real, double preacisions half 
precistions or complex 


e is an arithmetic expression or a Bool3aan expression 


Execution oT an arithmetic assignment statement causes’ the 
evaluation of the expression e by the rules in Section 6» conversion 
of @ to the type of vs and definition and assignment of v with the 
resulting value» as established by the rules in Table 4 If y is an 
array nama or an array section names the statement is an arlthmetic 
ALLaY assignment statement and e must be conformable with ye If y 
fs a scalars 2 must b2 a scalare If @¢ Is a scalar and vy is an array 
name or array section names the scalar value jis treated as if it had 
been extended to an array ¥ith the shape of vy In which all elements 
have the yalue e and then assigned. 
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10.0 ASSIGNMENT STATEMENTS 
LOe1 ARITHMETIC ASSIGNMENT STATEMENT 
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+ Type of vy ; Value H 
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i Integer ; INT(Ce) H 
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} Real ; REAL {e2) H 
fee ee ee $———- —— + 
: Double Preciston ¢ £DBLE(e) H 
io es ane Se sin eo en ti a sles Ses sen a Fm ne ee mee se me we rw ee + 
: tal? Pracistion + WALF (3) : 
ooo po + 
1 Complex i CMPLX{e) 3} 
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The funetions in the "Value Assigned" column of Table 4 are generic 
functions described in Table 5 (16.10), 


10.2 LOSTCAL_ASSIGUSERT STATEMENT 
The fori of a logical assignment statement ist 
Y=. 


where? y is the name of a logical variables logical arrays logical 
array sections or togical array element 


2 is e togical or bit expression 


Execution of a logical assignment statement causes the evaluation of 
the logical expression s followed by the assignment and definition 
of v with the value of e. Note that e must have a value of type 
loyical or bit. If vw is an array name or an array section names the 
Statement is a logical array assignment statement and e must be 
conformab{s with ye. If xv is a scalars e@ must be a scalare If 2 Is 
a scalar. and v is an array name or array section namey the scalar 
value is treated as if it had bean axtendad to an array with the 
shape of v in which all elements have the value e@ and then assigned. 
If e is of type bits ea is converted to type logical (BTGL(e)) and 
then asslaned. 


10.3 a a 
The forv of a stateanent label assignment statement is: 


ASSIGN s TO 1 
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wheres 5 is a statement. label 
i is an Integer varfable name 


Execution of an ASSIGN statement ceuses the statement Isabel gs to be 
assigned t the Integer variable i. The statement label must be the 
fade! of a statement that appears in the same program unit as the 
ASSIGH statement. The statement label must be the ftabel of an 
executable statement or a FORMAT statement. 


Execution of a statement label assignment statement is the only way 
chat a variadle may be defined with a statement label value. 


A variable must be defined with a statement tabef vaj{ue when 
referenced in an assigned GO TO statement (11¢3) or as aie format 
identifier (13464) in an input/output statement. While defined with 
a statement label values the variable must not be referenced in any 
other waye i 


An integer  yariable defined with a statement ftabel value may be 
redefined wlth the same or a different statement JIabel value or an 
integer value. 


10+4 CHARACTER _ASSLSNUENT_ STATEUENT 


The form of a character assignment statement iss 


Vs 
where? yv is the name of a character variables character arrays 
Gharacter array sections character array elements oor 

character substring 


{cp 


is a character expresston 


zxecution of a charecter assignment statement causes the evaluation 
of the expression @ followed by the assignment and definition of y 
mith the values of @. None of the character positions being defined 
in v may be referenced in ee vy ande may have different lengths. 
If the length of v is greater than the length of as the effect Is as 
though e were extended to the right with blank characters until it 
is the same tfangjgth as v and then assignede If the length of yx Is 
less than the length of eg, the effect is as though e were’ truncated 
from the right until it is the same Jength as v end then assigned. 
If v is an array name or an array section names the statement is a 
character array assignment statement and e must be conformable with 
ve If vy is a Scalars e must be a scalar. If 2 Is a Scaler and v Is 
an array name or array section names the scalar value is treated as 
if it had bean axtanded to an array with the shape of v in which al! 
elements have the value e@ and then assigned. 


— 
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Inly as much of the vaitue of a must ba defined as is needed to 
define ve» In the example: 


CHARACTER A*2s3 B¥4 
ABB 


the eee eg A=B requires that the substring B(1:2) be definede 
Tt does not requira that the substring B(3:4) bea defined. _ 


If vy is a substrings a is asstgned only to the substring. The 


definition status of substrings not specified by v is unchangede 


10.5 HULTIPLE ASSIGNMENT _STATENENT 


The form of a multiple assiqnment statament is: 
y = Tv2=].e2f 
where: 


v is the name of avartables arrays array sections array 
elements or character substring 


is an expressione The types of the elements y and the 
axoresston e@ must be such that the forms: 


i 


Yrs 


is a valid assignment statement for each v in the multiple 
assignment statemant.e 

=&xecution of a multiple assignment statement causes the evaluation 
of the expression ee After any necessary conversions the assignment 
and definition of the rightmost y with value of 2 occurse 
Assignment and definition of each additional vy occurs’ in 


right-to-left order. The value assigned to each v is the value of 
the vy immediately to its right, after any necessary conversione 


10.6 BOOLZAN_ASSIGUBENT_STATEUENT 


The form of a Boolean assignment statement is? 
Y= 2 
wheres: . 
vy is the name of a Boolean variables Boolean arrays Booléan 
arrsy sactions or Boolean array element 


e is a Boolean expression or an arithmetic expression 
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Execution of a Boolean assignment statement causes the evaluation of 
the expression e@ by the rules in Section 6s and the conversions 
assignments and definittlon of y. 


If eae is an arithmetic expressions the value assigned to y is 
BOOL (2). 


If vis an array name or @n array section names the statement is a 
Boolean array asslunmant statement and e must be conformable with ve 
if vy is a scalary eg must be a scalare If ge is a scalar and vy is 4n 
array name or array section names the scalar value is treated as if 
t had been extended to an array with the shape of vy in which all 
lements have the value e and then assigned. 


e 
10.7 BII_ASSIGNMENT_SIATEMENT 


The form of a bit assignment statement Is: 


whores y is the name of a bit variables bit arrays bit array 
| section, or bit array element . 


2 is a bit expression or a fogicsa} expression 


Execution of a bit assignment statement causes the evaluation of the 
bit expression e followed by the assignment and definition of v with 
che value or a, Hote that 28 must have a vatue of type bit or 
logical. If v is an array name or an array section names the 
Statement Is a hilt array asslanment stetarent and 2 must be 
conformabjJe with xy. If vy is a scalars @ must be a scalar. If e is 
4 scalar and vy ds an array name or array’ section name, the scalar 
value is treated as if it had been extended to an array with the 
sharpa of v in which all elaments have the velue e and than aessigqnade 
If eae is of type logical» e is converted to type bit (LTOBle)) and 
than assignacd to ve 


2 ARRAY_ASSIGNMENT_STATEMENTS 
LOe9e1 IDENTIEY_ STATEMENT 
An IDENTIFY statement allows specification of sections of arrays 
which may consist of fogically noncontiguous elements of 2 parent 
arrays or wnich may ba skewed with respect to the orthogonal 
dimensions (axes) of a parent arraye 


The form of an IDENTIFY statement ist 


IDENTIFY (pylocvless)uCLLCy ble ee) Hcl mlamleee) 
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« 


is the idantified or "virtual" array name 
i is the host or "parent"™ array 


i is an unsubscripted integer yarlable name to be used as a 
dummy subscript variable in none or more of the tinear 
mapping expressions defining Ve The set of dummy 
subserfipt varlables specifled in the IJist (ily»j3...) 
taken in order of appearance in the list define the 
ordinal order of the mapping of vw onto a subset of fe 
The number of dummy subscript variables in the fist 
defines the rank of v, 


n is a scalar-valued integer expression that is linear In 
the dummy subscript variables. The set of g specified in 
the list (UmEsm]...) defines the mapping of v onto ¢ in 
terms of the dummy subscript variablese The number of 
axpressions in the fist (mslsmleee) must equal the rank 
of the host or parent array fc. 


Ly is a ranye daclerator. The number of range declarators 
in the lists (ryvfsevlesoe) must equal the number of dummy 
subscript variables in tha list (ilsLleee)s in.e5 it must 
equal the rank of vy. 


The range declerator Is of the forms 


Crlijc2 

where: 
cl is a lower range bound spacification 
£2 is an upper range bound specification 


If cl is omitteds ti defaults to the yalue one. A lower or upper 
range bound must be a scalar-valued integer expressions 


The identified array name y must havea been previously declared as an 
array nane in a VIRTUAL statement ontve yy end c must not be the 
same namee 


The identified array name voemay appear undimensioned in a type 


specification statements but must not appear declared as an array. 


name in any specification statements other than a VIRTUAL statement. 
The jdantifiad array must be of the same type as the host arraye 


An identified array must not be referenced or defined until after it 
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has been "identified" by execution of an IDENTIFY statementy except 
vhen referenced in a NAMELIST I/70 liste 


The number of antrias in the list of dummy subscript variables 
(ifsijl...) for vy must egual the initial decltared rank of ve. 


The dummy subscript variabtes ([lsileo.) area utilized onty tn a 
Formal sense; values assigned to the variables (names) elsewhere in 


che program unit ara unaltered by tha occurrence of these variables 
(names) in che IDENTIFY statement. 


The scalar~valiued subscript quantities (mlsmi..e) must be 
mathematical dy equivalent to expresstons of the form 
kOFKXLI*+K2 Xi 2+ 0.0 2t+knxin In which the ks are scalar integer 
aypressionss not involving the dummy subscriot variabless and the is 
are the dumay subscript variables used to define the mapping of the 
yirtual array to the host arraye 


The host array c may be an explicitly declared "real" array or a 
previously identified “virtual” arraye 


The host array cf may be an allocated allocatable arrey. If £ 
subsequentiy appears In a FREE statements then v becomes. undefined. 
The host array £ may not be an assumed=-silze arrays 2a dummy ergument 
arrayy or an array-valued function name in the function. 


The array c may have at most rank sevanj3 similarly, the rank of y 
nay be at Most Sevans 


The scalar-valued subscript quantities (mLy»mJeee) along with the 
duamy subscript varlables (if»ilj]..e.) specify the salection mapping 
of the identified array. At the time of execution of an IDENTIFY 
statements the scalar-yalued subscript quantities (ml»mleee) define 
the mapping of v onto pr.» Variables involved in m may be redefined 
or hecome indofinad during execution of subsequent executable 
statmeants with no affect on the mapping specified by the IDENTIFY 
statement. The order in which the “dummy subscript variables" 


appear in the tlist (ilyileoe.) defines the specific ordering in 
which the virtual array y Is to be defined and referenced. If a 


"dummy subscript variable" included in the list (iLsileee) is not 
utilized in the IJist of “subscript quantities" (mlsm]eee)dy %In 
generals a replication of the real array ¢ is implied, If: the 
mapping of the yvirtuel array ts such that two or more virtual array 
elements map to a single array element in the host arrayy the 
virtual array may be referenced but not defined or redefinede 


When an identified array or saction of an Identified array Is passed 


aS ah argument to a subprogramy only elements within the identified 
"virtual" array or array sction are passed to the subprograme 
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Ince defined by an IDENTIFY statement, identified arrays may be 
utilized in exactly the same manner as any declared “reai" arreyve 
In voarticulars an tdentified array may be subscrigted or sectloneds 
and an identified array or section of an identified array may be 


passed.as an argument to a subprogran in the same manner as a 


daclared "real" arraye 
LOe%e2 EQRALL STATENENT 


The FORALL statement is used to represent an array assignment in 
terms of indices. The form of the statement is: 


FORALL (index=ranaels index=rangele..fslexp])st 
where? 
index is an integer variable 
hangs has the form jel:ie2f:ie3] where lel» ie2s end is3 
are integer. expressions that do not involve any 


indices of the statamant: if jal is absent it Is as 
if it were present with the value 1. jie3 must not be 


ZErOe 
jexp is a scalar togicel exoressions which may involve the 
indicese The effect is as if lexp is evaluated for 


all Index combinations prior to the execution of the 
statement st» 


st is an assignment statemant of the form: 


wher as 


gas is an array element or an array section. It must 
j reference all the indices 


yp is an axpression 
An index can take only the values? 
MLtkMa3sk=1529 000s INT((n2—-mlt+m3) /m3) 
where pls m2, and g3 are the values of jel», is2s and je3 on entry to 


tha statement. An Index for which INT((m2—-m1+m3)/m3) £0 cannot take 
any valuese execution of the FORALL statement consists of the 


ayvaluazion in  eny order of axon for all valid combinations of index. 


values for which lexp is trues followed by the assignment of these 
yalues to the corrasponding entities aszse If Lexe is omitteds it Is 
as Jf it were present with value .TRUE. The statement must not 


CONTROL DATA PRIVATE 


| te _ a ee 10-9 

Control Data. Corporation Standard FORTRAN 
| ? 83/06/30 

10.0 ASSIGHNENT STATEMENTS 

1003.2 FORALL. STATENENT 


2D OM OD Cee HNP ENE RR HED SEE Het HERD er E OED MAD ERD TAD GETS ED Ure AD ETE aonth UD 4D ONS COED TR GD MRO ENE ee OR WD GOED HERD CTD GAD ROSE BORD HED GOES OED Ue SORE Sd OUD ENE OD EE ORE HED CEE EOD wee SUS Ten SES ee ED a gee ee wee eee ene aan me 


Gause any entity rafereanced as all or part of aes to be assianed a 


value more than. once. The scope of the indices is the FORALL 
statement itseif and any uses of their names outside the statement 
are references 9s separate entities. The indices must not be 


altered by a function referenced during the evaluation of expe 
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11e0 CONTROL STATEMENTS 


Control statements may be used to control the execution sequences 
There are sjxtean control! statements: 

(1) Unconditional 60 TO 

{2) Computed GO TO 

(3) Assigned GO TO 

(4) Arithmetic IF 

(5) Logical IF 

(6) Block IF 


(7) ELSE TF 


(11) CONTINUE 

(12) sTne 

(13) PAUSE 

(14) END 

(15) CALL 

(16) RETURN 

(17) Logical WHERE 
(18) Block WHERE 
(19) STHERWISE 
(20) ENDWHERE 


The CALL and RETURN statements are described in Section 16. 
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11.0 CONTROL STATEMENTS 
11.1 UNCONDITIONAL GO TO STATEMENT 
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L1.1 UNCONDITIONAL GO_TO_STATEMENT 
The form of an unconditional GO TO statement is: 
69 To 8s 
adhere s is the statamant label of an executable statement that 
appears. in. the same program unit as the unconditional 60 TO 
statement. 
Execution of an unsonditional GO TO statement causes eae transfer of 
-gantrof} oso that the statement identified by the statement label is 
executed next, 
11.2 CONPULED GO_TO_STAIEMENT 
The form of a computed GO TO statement is? 
S$) TO (53 UTsgde5e-) Es] 2 


wheres: is an arithmetic or Boolean scalar expression 


fe) 


is the statamant ltabel of an eyscytable statement that 
appears in the same program unit as the computed GO TO 
statement. The same statement label may appear more than 
once in the same computed GO TC statement. 


fa 


Execution of a computed GO TG statement causes evaluation of the 
expression ee The value obtained is converted to type integer, if 
necessarys by apollicatton of the Intrinsic function INT to yield an 
integer value Jie 


11.3 ASSIGNID_GD_TO_STATZ NENT 

The form of an assigned GO TO statement is? 
G60 TO L Clo] (s Costes) ] 

where: i is an integer variable name 


s is the statement label of an execytable statement that 
appears in the same program unit as the assigned GO TO 
statemente The same statement label may appear more than 
once in the same assigned GO TO statemente 


At the tine of execution of an assigned GO TO statementy the 
variable j[ must. be defined with the value of a statement label of an 
executeble statement that aopears In the same program unite Note 
that the variable may be defined with a statement label value only 
by an ASSIGN statement (10.3). in the same program unit as the 
assigned GO TO statament. The axecution of the assigned GO TO 
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statement causes a transfer of control]! so that the statement 
Identified by that statement !tabel Is executed next. 


Tf the parenthesized tist is presents the statement label assigned 
to ~£ must be one of the statament iebels in the Jist. 


11.4 ARLIHMETIC_1E_ STATEMENT 


The form of an arithmetic IF statement is: 


where’ e is an integery reals double precisions half precisions or 
Boolean scalar expresston 


sl» s2,y and s3 are each the statement fabel of an executable 
statement that appears in the same program unit as thea 
arithmetic IF statement. The same statement label may 
appear more than once in the same arithmetic IF 
statement, | 


cxecution of an arithmetic IF statement causes avalyuation of the 
axoression 2 followed by a transfer of control. The statement 
identified by sl» s2,s or s3 is executed next as the value of e is 
less than zeros, equal to zeros or greater than Zero, respectivelys 
If e is a Boolean expressions the value of INT(e) is used. 


5 LUGICAL LTE_STATEMENT 
The Form of a logical IF statement is: 
LF )ae 
where: e is a scalar logical expression 


at is any exacutable statement except a DOs block IFs 
ELSE IF», ELSSs END IFs END, block WHERE, OTHERWISEs 
END WHERE, logical WHERE» or another togical IF 
statamante 


Execution of a logical IF statement causes evaluation of the 
expression @. If the value of e is truey statement st is executed. 
I? the value of e Is falses statement st Is not executed and the 
execution sequence continues as though a CONTINUE statement were 
nyacutade 


te that the execution of a function reference in the expression e 


° 
F ai tlogical IF statemént is permitted to affect entities in the 
stahement sie 
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11.6 BLOCK IF STATEMENT 
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11.6 BLOCK_IE_STATENENT 
The block IF statement is used with the END IF statement ands 


optionallys the ELSE IF and ELSE statements to cantrol the execution 
: Seguencee ; 


The form of a block IF statement is: 

IF (a) THEN | 
ythere e is a scalar logical expression. 
11e6e1 LESLEVEL. 
The lE-level of a statement gs is 

OL. -- Hz 
where ol is the number of block IF statements from the beginning of 
Che program unit up to and including gs», and n2 is the number of 
END IF statements in the program unit up to but not including Se 
The IF-leve] of ¢ 
IF-level of each 

e 


be positivee Th 
must be Zeroe 


ary statement must be zero or  positivee The 
block IFs ELSE IF» ELSEs and END IF statement must 
lF-level of the END statement of each program unjt 


11.6.2 JE=BLUOCK. 


An LE=bileck consists of all of the executable statements that appear 
Following the block IF statement up toy but not includings the next 
ELSE IF» ELSE» or END IF statement that has the same IF-level as the 
block IF statemente An IF—block may be empty. 


1126.3 EXECUTION OF_A_ALOCK _TELSTATSSEMI » 


Execution of a block IF statement causes evaluation of the 
expression &-. If the value of ¢ Is trues, normal execution sequence 
continues with the first statement of the JIF-block.e If the value of 


e is true and the IF-block is emptys control is transferred to the 
next END IF stetement that has the sane IF—Ievel as the block IF 
statemente If the value of e is falseys control is transferred to 


the naxt ELSE IF» ELSE» or END IF statament thet has the same 
IF-level as the block IF statament. 


Transfer of control into an IF-block from outside the IFe-block is 
prohibited. 


If the execution of the last statement In the IF-block does not 
result in a transfer of controls. control is transferred to the next 
END IF statement that has the sama IFe-levyel as the block IF 
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statement that precedes the IF-blocke 
11.7 ELSELIE_SIAIENENT 
The Form of an ELSE IF statement is: 
ELSE IF (eg) THEN 7 
where e is a scalar ragiext expression. 
11.7.1 ELSc_LE-BLOCK. 
An ELSE LE-black consists of all. of the executable statements that 
appaar folloving the ELSE IF statement up toy but not includings the 


mext ELSE IFs ELSE» or END IF statement that has the same IF-level 
as the ELS= IF statement. An ELSE IF-block may be empty. 


Ll.7e2 EXECUTION OF _AN_ELSE_IE_STAIENENT« 


execution OF an ELSE IF statement causes evaluation. of the 
expression @- If the value of @ is true, normal exacution sequence 
continues with the first statement of the ELS& IF-blocke If the 
value of e@ is true and the ELSE IF-block is emptyy control is 
transferred to thea next END IF statement that kas the same IF-level 
as the ELSE IF statement. If the value of e is falses contro! is 
transferred to tha naxt ELSE IF» ELSE» or END IF stetament that has 
the same IF—level as the ELSE IF statemente 


Transfer of control into an ELSE IF-block from outside the ELSE 
IF-block is prohibited. The statement |abals if anys of the ELSE IF 
statement must not be raferenced by any statement. 
If execution of the last statement in the ELSE IF=-block dees not 
result in a transfer of controls control is transferred to the next 
END IF statement that has the same IF-level as the ELSE IF stetenment 
that precedes the ELSE IF-block. 
11.93 ELSE_STATENENT 
Tha form of an ELSE statement is: 

ELSE 
11.8.1 ELSE-BLOCK. 
An ELSELblosck canstists of all of the executable statements that 
appear following the ELSE statement up to,y but not includings the 
next —END IF statement that has the same IFe-lavel as the ELSE 
statement. An ELSE-block may be empty. 


An IND IF statement of the same JF-level as the ELSE statement must 
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apoear before the appearance of an ELSE IF or ELSE statement of the 
same IF-level,. oo 


11.2.5e2 EXECUTION _ OE_AN_ELSE_ STATEMENT. 
Zxecution of an ELSc statement has no effect. 
Transfer. of control into an EL SE=hlock from outside the ELSE—block 


is prohflbited. Tha statement Tabels if anys of an ELSE statement 
must not be referenced by any statemente 


11.9 END_IE_STATENERT 
The form of an END IF statement is: 
END IF 
Execution of an END IF statement has no effecte 


For each block IF statements there must be a corresponding END IF 
statement in the same program unit, A corresponding END IE 
atatement is the next END TF statement that has the same IF-level as 
the block IF statement. 


11.10 DO_STATENENT 
A DO statement is used to Seeeiay a loopy called a DO-loop. 
The form of a DO statement ts? 

DQ s Cs] i = als e2 C9283] 


wnares § is the statomant lahoal of an exacutable statement. The 
statement jdentified by ss. called the terminal statement 
of the DO-ftoos, must follow the DO statement In the 
sequence of statements within the same program unit as 
the DO statement. . 


L is the name of an integers raaly half precisions or 
double preci shorn varlables callad the DO variable 


@ls es and . are each an integers, realy half precisions 
double pracisftons or Boolean scalar expression 


The terminal statement of a DO-loop must not be an unconditional 
SN Tas assigned G17 TO, arithmetic IF» block WHEREs OTHERWISE,» 
END WHERE», logical WHEREs blocit IF» ELSE IF» ELSE» END IF,» RETURN, 
STOP» END» or DO statement. If the terminal statement of a DO-IJoop 
is a logical IF statementy it may contain any executable statement 
axycept a 6D» hlosk IFs, ELSE IFs ELSE» END IFs ENDs or another 
lojyical IF scatement. 


CONTROL DATA PRIVATE 


_ a ~ -11-7 
Con rotciats Corporation Standard FORTRAN 
83/06/30 
11.0 CONTROL STATEMENTS — 
11.10.1 RANGE OF A DO-LOOP. 


AO HD AER CE TO OES Le ED RD EWES ND FF COE CU SOE BEND PEED AON Ome vA FE meee LEED QD Gee) TRUE ANS WEED GAND GIVED eR END SUED GOED SE HEH wee WED MENT Hee) CRED SOE WUD GERD LAE WHRD WONND ROUTE weeld SEE GORD EEE BUY ERE QOD GE IUD LE SER AUS QEUe SENE CEN ER Hee AD OOD 


The range of a DO-loop consists of all of the executable statements 
that appear following the DO statement that specifies the DO<-toops 
to and including tha terminai statement of the DO-Ioop. 


Tf a DN statement appears within the range of a DO-loops the range 
of the D-loop specified by that DD statement must be contained 
entirely witnin the range of the outer Di-loop. More than one 
DON-loop may have the same terminal statement. 


If a D5 .statement appears within an IF-blocks, ELSE IF=blocks or 
ELSE-blocks the range of that DN-toon must be contained entirely 
within that IF-blocks, ELSE IF—biocks or ELSE—blocky respectivelye 


If a block IF statement appears within the rance of a DO—Ioops the 
corresponding cND ‘IF statement must also appear within the range of 
chat DO-loop. 


11.1062 ACTIVE_AND_TNACTIVE DO=LOQ2 Se 


A DO-foop is either active or =f{nactive. Initially inactiveys a 
NO—-loop becomes active only when its DO statement is executed. 


‘Ince actives, the DO-loop becomes inective only when? 


(1) {tts iteration count is tested (11.10.4) and determined to be 
zeros 


(2) its Nevaptabie. beeones undefined or Is redefined by means 
other than the incrementation described In 11.10.75 — 


(3) it is in the range of another Dil=!oop that becomes inactives 


(4) a RETURN» STOP» or END statement is executed In its program 
units or 


{5) it is in the range of another DO-loop whose DO-stotement is 
2Kecutade 


Execution of a function reference or CALL statement that appears in 
the range of a DOloop does not cause the ODN-loop to become 
inactivee Note that transfer of control out of the range of a 
DO-loop does not inactivate the DO—loop., Howevers the DO—Joop 
becomes inactive if the DO-variabile becomes undefined = or is 
redafined outside the ranges 


Whan « DO-loop becones Inactivey the DO-variable of the DO-loop 
retains its last defined values unless it has become undefineds 
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11.10.3 EXECUTING A_DO STATEMENT. 


The effect of executing a DO statement is to perform the following 
steps in sequence? 


{1) The initial paranetec ml» the tarcrinal parametar m2» and the 
incrementation parameter m3 are established by evaluating el» 
a2, anil 93» respactivelys, Including, if necesserys conversion 
to the type of the DO-variable according to the rules’ for 
arithmetic conversion {Table 4). If 23 does not appears 93 
has. a value of onee 93 must not have a value of zero. 


(2) Tha DO-variahie becomes defined with the value of the initial 
parameter ml. 


(3) The iteration count is established and jis the value of the 
axprassion . ; 


MAXCINT ( (m2—-91493)/53)emte) 


where? gtc is the minimum—trip-count parameter. mts has a velue of 
| elther one or zeros and is established at processor 
invocation. The value of mtc may be dynamically modified by 

the ninimum-trip-count control directive (347+4). 


Note that the iteration count is equal to the value of gte 
whanevars 


yl > 2 and 93 > O»s or 
ml < m2 and g3 < Ov» 


At the conpletion of execution of the DO statements toop control 
processing beginSs . 


11.10.64 Looe COUTROL_ PROCESSING. 


Loop control processing determines tf further execution of the range 
of the DO-loop is requirede The iteration count is tested, If it 
is not zaros execution of the first statement In the range of the 
DO-loop begins. If the iteration count Is zeroy the DO-!loop becomes 
inactive. If, as a results all of the DO-loops sharing the terminal 
statement of this DO~!Yoop are inactives norma} execution continues 
with oxecution of the next executable statement following the 
terminal statement. Howevers if some of the DO-loops sharing’ the 
terminal statement are actives execution continues with 
incrementation procassings as Jascribed in 11.10.7. 
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“4410.5 EXECUTION _ OF THE RANGE. 


Statements in the range of @ DN—loop are executed until the terminal 
statemant is reached. Except hy the incrementation described In 
11-610.7s the DO-variable of the DO-loop may neither be redefined nor 
become undefined during execution of the range of the DO-loop. 


11.10.6 TERMINAL STAIENENI_ EXECUTION. 


=xecution of the terminal statement occurs as a result of the normal 
execution sequence or as a result of transfer of controls subject to 
the restrictions In 11-108. Uniess execution of the terminal 
statement results in a transfer of controls, execution then continues 
with incrementation processingsy as described in 1L1lel0e7e 


11.10.7 LNCREMELIATLON_2ROCESSING 


Incrementation processing has the effect of the following steps 
performed in sequence: 


(1) The DO-variables, the iteretion counts and the incrementattion 
parameter of the active DO-loop whose DO statement was most 
recently exeasutads, are s2alectad for processing. 


(2) The value of the DO-va triable is incremented by the value. of 
the incrementation parameter m3. 


(3) The iteration sount is dacremented DY ONfe 


(4) Execution continues with foop control processing (1121004) of 
the same DO—loop whose iteration count was decrementede 


An axampls ilfjustrates the above: 
N=0 
DN.100 J=1s10 
J=I 
D3 100 K=195 
L=kKk 
100 N=N4+1 


101 CONTINUE 


After execution of the above statements and at the executlon of the 
CONTINUE statements I=1lly»s J=10»5 K=6, L=5y and N=50. Also consider 
the follouing example (mtc=0): 


N=0 

DN 200 IT=1s10 
J=I 

DQ 200 K=5s1 
L=K 
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11.10.7 INCREMENTATION PROCESSING. 
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2090 t=h+1 
201 CONTINUE 


After execution of the above statements and at the execution of the 
CONTINUE statement, T=lls J=10» K=5y) and N=0. L is not defined by 
the above statements. 
11.10.8 TRANSEER_INTO_ THE_RANG= _DE_A_DO-LOOP. 
Transfer of Sonerel Into the range of an inactive DO-foop is not 
permitted, Transfer of control to any executable statement in the 
range of an active DO-Joop is permitted unless the statement is also 
in the range of an inactive DO—!oop or the transfer of contro} Is 
not permitted by the rules for execution of an IFfF-blocky ELSE 
IF-blocks ELSE-blocks WHERE=jblocks or OTHERWISE-blocke 
11.11 CONTINUE STATEMEUI 
The Form of a CONTINUE statement. is 

CONTINUS 
Ex2cution of. a CONTINUE statement has no effect, 
Tf the CONTINUE statement is the terminal statement of a DO—Iloops 
the next statement executed depands on the result of the DO-loop 
Incrementation processing (11.10.27). 
11.12 STOP_STATEMENT 
The form of a STOP statement Is? 

STOP Cg] 


where gids a string of not more than five digitss or is a character 
constant. 


execution of a STOP statement causes termination of execution of the 
executable vrograme At the time of terminations the digit string or 
character constant is accessible. 
11.13 BAUSE_STATEMENT 
The form of a PAUSE statement is: 

PAUSE [ni 


where on is a string of not more than five digitssy or is a character. 
eonstant. . 


Execution of a PAUSE statement causes a cessation of execution of 
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11.413 PAUSE STATEMENT 
the executable program. Execution Is resumable.e At the time. of 


cessation of execution, the digit string or character constant is 
accessible via display to the operators and slso to the user if the 
latter is in connuntcation with the processor during executlione 
Resumption of execution is not under control of the programe If 
execution is resumedys the execution sequence continues as though a. 
COHTINUE statement were executed. Saa the reference manual for the 
appropridate operating system regarding the means for Indicating that 
execution should be resumed. If the program is executing 
interactivelys the user causes exacution to r@sume by entering an 
input line. consisting of the characters GO In columns one and twoe. 
The alohabetic case of the letters in GO is not significant. 


11.14 SND_STATEUEUTL 


The END statement Indicates the end of the sequence of statements 
and comment lines of a program unit (345). If executed in a 
Function or subroutine subpragrams, it has the effect of a RETURN 
statement (16.8). If executed in a main programs It terminates the 
execution of the executable programe . 


The form of an END statement is: 

EWD 
An END statement is written only in columns 7 through 72 of an 
initial line. An END statement must not be continued. No other 
statement in a program unit may have an initial tine that appears to 
be an END statement. 
The ltast line of every program unit must be an END statement, 
11.15 LOGICAL WHERE _STAIEMENL 
The logical WHERE statement is used to contro! the assignment. of 
values in an array assignments end to control the evaluation of 
eypressions in the array assignment statements according to the 
value of a fogical array expressione 
The form of a logical WHERE statement is: 


WHERE (Lae) st 


where: 
ta2 is an array axpression of type logical or bit 


st is an array assignment statement 
Execution of a logqisal WHERE statement has the same effect as 


axeoution of the sequence 
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END WHERE 
11.16 BLOCK WHERE_STATEUENT 


The block WHERE statement Js used with the END WHERE statementy and 
optionally the OTHERWISE statement to control the assignment of 
values in a bleck of array assignment statementss and to control the 
evaluation of exprassions In array assignment statements, according 
to the value of a togical array expressions 


The form of a block WHERE statement is: 


where: laa is an array expression of type logical or bit 
11.1641 WHEBESLEVEL 
The WHERE-Llevel of a statement s is 

Bane | 


where nl is the number of block WHERE stataments from the beginning 
of the orogram unit up to and Including S»s and n2 is the number of 
SND WHERE statements in the program unit up to but not including Se 


The WHERE-feavel of avery statement must be Zere or one. Note that 
this precludes nesting BLOCK WHERE statements. The WHERE-level of 
each block WHEREs OTHERWISE, and END WHERE statement must be onee 
Tha WHERE=-lavel of tha END SeAee ment of each program unlit must be 
Zeroe 


A WHEREtblosk consists of all of the executable statements that 
appear following the block WHERE statement up toy but not including» 
the next QTHERWISE or END WHERE statement that hés the same 
WHERE=-lavyel as the block WHERE statemente All of the executable 
statements in a WHERE-block must be array assignment statements that 


do not involve an array-valued function references In each array 
assignment statement of the form y=Ev=Jeeedy ¥Y must have the seme 
shape as lae. 10 statement in a WHERE—block can be the terminal 


statement of a DO. A WHERE-block may be emptye Transfer of control 
into a WHERE—block Is prohtbited. 


11.16.3 EXECUTION JE_A BLOCK _WHESE STATEMENT 


Execution of a block WHERE statemant causes evafuation of the 
expression lLaee The statements in the WHERE=}block are executed in 
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normal execution sequence. When an array. assignment statement is 
executed under control of a block WHERE statements the semantics 
of the statamant ara as if it were execyted as fellows: 

(1) The evaluation of the expression e takes place as if it were 
ayaluated for all elements whare Jaa is true and the result 
of the evaluation assigned to the corresponding element of Ve 
At points where Lae is falses the value of the corresponding 
alement of vy Is not altered and it is as if tha axpression e@ 
yas not evaluated, | 


(2) Assignment statements betwean a WHERE and an ENDWHERE 
(Including an optional OTHERWISE block) are executed in 
normal.execution sequencee Values defined in vy in one 
assigjninent statement may be referenced or defined in 
subsequent assignment statements. 


The value of lae is not affected by the execution of statements in 
the WHERE=block, : 


Transfer of control into a WHERE=—block is prohibited. 
11.17 OTHERW ESe_sTAreace tL 
The form of an OTHERWISE statement is? 


OTHERWISE 


11.17.1 OTHERWISE-BLOCK 


An SIBERWISE-BLOCK consists of all of the oxncutable statements that 
agonear Follawing the OTHERWISE statement uo tas, but not Includings 
the END WHER= statement that has the same WHeERE-level as the 
NTHERWISE statemente Al! of the executable statements in an 
QOTHERWISE—block must be array asslanment statements that do not 
involve an array-valued function references In array assignment 
statements of the form velv=leecees v must have the same shape as 
pe. Ko statenent In en ATHERWISE-block cen de the terminal 
statement of a0. Transfer of control into an OTHERWISE-block is 
prohibite de An OTHERWISE-block may ba emptye 


11.17.2 EXECUTTION_OF_AN_OTHERYISE STATEMENT 

Execution of an OTHIRWISE statement causes the statements in the 
NTHERWISE-block to be executed in normal execution sequence. When 
an array assignment statement is executed in an OTHERWISE blocky the 
semantics of the statement are as if it were axecuted as folloys: 


(1) Tha evaluation of the expression e takes place as if it were 
evaluated for all elemants shere Lge is fals@ and the result 
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of the evaluation assigned to the corresponding element of we 
At points where Lae is trues the value of the corresponding 
element of yv Is not altered and It is as If the expression a 
was not evaluated, 


(2) Assignment statements between a WHERE and an ENDWHERE 
(including an optional OTHERWISE block) are executed in 


Normal execution sequence, Values defined in v in one 
assignment statenent may be referenced or defined In 


subsequent assignment statements. 


The value. of lae is not affected by the execution of statements In 
the OTHERWISE—biock. 


Transfer of control into an OTHERWISE-block is prohibited. 


11.138 END doko STATENSEUT 
The form. of an =ZND WHERE statement is: 

END WHERE 
Exscution of an END WHERE statement has no effect. For each block 
WHERE statements there must be a corresponding END WHERE statement 
in the same program unit. A gorresponding END WHERE statement is 


the next END WHERE statement that has the same WHERE-!level es tha 
block WHERE statement. 
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12.0 ARRAY STORAGE ALLOCATION 


There are two axecutable statements «that control allocetion of 
storage for arrays:. . 


{1) ALLOCATE statement 


12.1 ALLOCATE STATEMENT 


The ALLICATE statement is usad to allocate storage for an 
nllocatabile arraye The form of an ALLOCATE statement is: 


share: ad has the form of 8s constant or adjustable array declarator. 


The array names appearing in ad must have been specified to be 
allocatable arrays. The dimension bound exprassions are subject to 
the same tlimitations as in an array declaratory, except that array 
element references are permitted to appeare No allocatable array 
nama in an ALLOCATE statement may be referenced In a primary of any 
expression within the same ALLOCATE statement. For examples 


ALLOCATE. AC LOsEXTENT CAs1) Da BISIZECA)) 


is prohibited. Tha dimension bound expressions in ad are evaluated 
at the time of execution of the ALLOCATE statement. The vaiues of 
the dimension bound axpressions determine the sizes of the 
corresponding dimanstons for the allocatable array and the upper and 


lower bounds of the dimenstonse The number of dimensions is 
determined by the allocatable array declarator and must correspond 
with the number specified In ad. If the altlocatable array «as 


declared with an explicit tower bound dly then the corresponding 
lower bound of the array deciarator ad must specify the same value 
An allocatable array must not be defined or referenced if it is not 
currently allocated. 


Aftar axecution of an ALLOCATE statenent § for an arrays the 


properties of dimenston sizey lower and upper dimension bounds and 


array size are established. Howevers, any entities in the dimension 
hoatinds exprassiens nay he redefined ofr become undefined rwrith no 
afeact on the above mentioned properties. Immediately after an 
array is allocated the values of all of the array elements are 
undefined. 


An ALLOCATE statement may appear in a malin programs subroutines or 
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Function subprograme At the beginning of axecution of an executable 
programs al} allocatable arrays have a state of "not currently 
allocated", AlJ allocatable arrays that have been allocated storage 
by an ALLICATE and that have not been subsequently freeds will ba 
fread automatically if execution of the subprogram In which they 
wera allocated Is terminated by execution of a RETURN or END 
statements and the allocatable array name is not specified in a SAVE. 
statement (explicitty or iImplicitix). Aifteocating a currently 
allocated array Js prohtbited. 


12.2 FREE_STATENENT 


Thea FREE statement, causes the storage for previously allocated 
arrays to be released» The form of a FREE statement is: 


FREE AlLysalens 
wharet a is the name of an allocatable array previously allocated by 


seed een of an ALLOCATE statement. Results are undefined if ag is 
not currently allocatede 
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1320 INPUT/DUTPUT STATEMENTS 


Input statements provide the means of transferring data from 
external media to internal storage or from an jnternal file to 
internal storages This process is called raadinga. Dutput 
statements onrovide the means of transferring data from internal 
storage to external media or from internal storage to an internal 
Tila. This procass is called yritipna. Some input/output statements 
specify that editing of the data is to be performed. 
In addition to the statements that transfer datas there are 
auxiliary input/output statements to manipulate the external mediums 
ar to Inquire aboyt or describe the PE OST ENES of the connection’ to 
the external medium. 
There are fourteen input/output statements: 
(1) READ 
(2) WRITE 
(3) PRINT 
(4) OPEN 
(5) CLOSE 
(6) INQUIRE 
(7) BACKSPACE 
{8) ENDFILE 
(9) REWIND 
(10) PUNCH. 
(11) BUFFER I 
(12) BUFFER QUT 
(13) ENCODE © 
(14) DECODE 
The READ, WRITEs PRINTs PUNCHs BUFFER IN» BUFFER OUTs ENCODE, and 


DECODE statements are data transfer inout/output statements (13.8). 
The GPEN, CLOSE» INQUIRES, BACKSPACEs ENDFILEs and REWIND statements 


are guxillsry Loput/outeut statermants (13-10). The BACKSPACEs 


ENDFILE», and REWIND statements are file positioning input/output 
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statements (13.10.4). 
13.1 RECORDS 


A record is a sequence (2.1) of values or a sequence of characters, 
For example, a punched card is usually considered to be a recorde 
Howevers a record does not necessarliy correspond to a_ physica! 
entitye There are three kinds of records: | 


(1) Formatted 

(2) Untormatied 

(3) Endfile 
13.1.1 EQRENATICD RECORD. 
A formatted record consists of a sequence of characters that are 
capable of rapresantation in the procestore The tlenath of a 
Formatted record is measured in characters and depands primarily on 
the number of characters put into the record when it is written. 
llowevers, it may depend on the processor and the external mediums 


The fLensth may bs zeroe Formatted racords may be read or written 
aoniv bye Formatted input/output statements (13.8.1). 


Formatted records may be prepared by.some means other than FORTRAN; 
For @xample, some manual input devica. 


1341.2 UNFOSNATTED_ RECORD 


An unformatted record consists of a s@quence of values in 34 


processor~—dependent form and may contain both character and 
yoncharacter data or may contain no data, The fength of = an 
unformatted record is -measured in processor=dependent units and 
Japands on the outeut fist (13.3.2) used when it is writtens as well 
as on the processor and the external mediume The ftength may be 
Zerode 


The only stataments that read and write unformatted records are 
unformatted input/output stetements (13.8.1) BUFFER INs and BUFFER 
NUT statements (13.15)- An unformatted record to be read by a 
BUFFER IN statement or to be written by a BUFFER NUT stéetement may 
not contain characters bit or half precision data. 


13.1-3 ENDEILE_ RECORD. 
An endfile record is written by en ENDFILE statement. An endfile 


record may occur only as the last record of a Fila. An endfile 
record does not have a ltength property. 
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i3e2 ELLES 


A file is a sequence (2.21) of racords.e 
There are two kinds of files: 

{1) External 

(2) Intarnal 
13.2.1 ELLS_xXISTENCE. 


At any given times thera is a processor-determined set of Files that | 
are Said to exist for an execytable program. A file may be known to 
the processors yet not exist for an executable program at a 
particular times For #xampl@, security reasons may pravent a file 
From existing for an executable prougrat. A file may exfst and 
contain no records; an example is a newly created file not yet 
writtene. 


To greate a Sile means to cause a File to exist that did not 
previously existe To delete a file means to terminate the existence 


of the Files 


All input/output statements may refer to files that exist. The 
INQIREs SPEMs CLOSEs WRITE» PRINTs. PUNCHs BUFFER OUTs and ENDFILE 
statements may also refer to files that da not exist. 


13.262 FILE _ PROPERTIES 


At anv givan times there is a processor-determined set af allowed 
access methodss a processor-determined set of allowed forms» and a 
processoredatermined set at allowed cecaord Lensths for a file. 


A file may have a name; a file that has anamea is called # pamed 
Siie. The name of a named file fs a character string consisting of 
one to thirty-one alphabetic characters or digitsSe The first 
character of a file name must not be a digite (An aiphse character 
is a letters upper or lower cases or one of the characters ‘%» » # or 
. Cunderlinel. Upper and Jower case letters in the file name are 
Interpreted as variants of the same letter). 


13.23 ELLE_POSITIOU. 
A file that is connected to a unit (13.3) has a position property. 
Execution of certain input/output statements affects the position of 


a file. Certain circumstances can cause the position of a file to 
become indeterminate. 


The initial point of a file is the position just hefore the first 
record, The Eerpminal coint Is the position Just after the tast 
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records. 


If a File is positioned within a records that record is the gurrent 
gracord3 otharsises there is no current record. 


Let n be the number of records in the file. If 1 1 £ n and a file 
is positioned within the Lth record or between the (i-l)th record 
and the ith records the (j-1)th record is the precedinga resord. If 
n> 1 anda file Is positioned at its termina! point, the preceding 
record is the ath and last records If pn=O or if a file is 
positioned at its [Inithalt point or within the first records, there Is 
no preceding recorde “4 


If 1 ¢§ gd “n and ae file is positioned within the Lith record or 
hetween the ith and (1+1)th records the (i+1)th record is the gext 
Lesord. I? n>i1 and the file is positioned at its initial points 
the first record is the next record. If n=0 or if a file is 
positioned at its terminal point or within the oth end last records 
there Js no next record. ; 


13.264 EILE_ACCESS. 


Tiere are tun mathods of accessing the records of an externa! files 
Sequential and aTEeCts Some files may have more than one allowed 
Access methods other files mav be restricted to one access methode 
For axamples, a erocessor may allow only sequential access to a file 
on magnetic tapee Thuss the set of allowed access methods depends 
on the file and the processore 


The method cf accessing the file ts datermined when the file is 
connected to a unit (1323.2). 


An internal File must be accessed sequentially. 
13.2641 Sacuential_Acaasss 


When connected for sequential accesss a file has the following 
properties: 


{1) Tha order of the records Iis the order In which they were 
written If the direct access method is not a member of the 
set of allowed access methods for the filee If the direct 
access method is also a member of the sat of alftowed access 
mathods for the Files the order of the records is the same as 
that specified for direct access (13420402). The first 
record accessed by sequential access is the record whos@ 
recor’) number is 1 for direct accesse The second record 
eccessed bY Ssaquenttla} access is the record whose record 
number is 2 for direct accessys etce A record that has not 
deen written since the file was created must not be reade 
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ch en formatted or all 


(2) The racords of the fil are efthe 
last record of the file may be 


2 
unt nes Beye except that the 
an endfile record, 


(3) The records of the file must.not be read or uritten by direct 
access Input/output statements (13.8.1), 


1362642 Direct Accesses 


Whan connected for direct accesss a flle has the following 
properties’ 


(1) The order of the records is the order of their record 
numberse The racords may be read or written in any ordere 


(2) The records of the file are alther all formatted or all 
unformatted. If the sequential access method is altso a 
member of the set of allowed access methods for the files its 
endfile records If anys Is not considered to be part of the 
file while it is connected for direct accesSe If the 
sequential access method is not a member of the set of 
allosiad access methods for the files the file must not 
contain an endflile record. 


{3) Reading and writing records is accomplished only by direct 
. access input/output statements (13.8.1). | 


(4) All racords of the file have tha same Jangth. 


(5) Each record of the file is uniquely identified by a positive 
integar sallad the gcscord gumbere The racord number of a 
record js specified when the record is written. Once 
established», the record number of a record can never be 
chansad. Note. that a record may not be deleteds; howevearys a 
record may ba rewritten. 


(6) Records need not be read or written in the order of their 
record numbearse Any record may ba written into the file 
while it Is connected (13.3.2) to a unlit. For exanples Jt Is 
permissible to write record 3, even though records 1 and 2 
have not been writtene Any record may be read from the’ file 
“while it is connected to a units provided that the record nas. 
written since the fille was created, 


(7) The records of the file must not be read or written using 
fist-diractad formatting. 
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13.2.5 INTERNAL_ELLES 


Internal files provide a means of transferring and converting data 
from internal storage to internal storage, 


There ara two types of Internal files» standard and extended. A 
standard_internal_ file is a sequence of character storage units. An 
Aayteodad_inkaroal_fiia is 2 sequence of numeric storage Unitse Each 
type of internal file requires different input/output statement 
formSe 


The standard or extended property of an internal file is established 
by the type of storage provided for the file. 


Throughout this documents the phrase ILintsrnal._filse shall be 
interpreted to mean standard _internal.file, unless explicitly 
prefixed with axtandad. : 
13626501 Standard _Internal_Elle Propertiese 


A standard Internal fie has the following properties: 


(1) The file is a character varjables character array elementy 
character arrays or character substringe 


(2) A racerd of an internal fille Is a character varfableys 
character array elementy or character substrings 


(3) If the file is a scheracter veriablas character arrey claments 
or cheracte@r substrings It consists of a2 single record whose 
length is the same as the tength of the variables array 


elements or substrings respectivelye If the file Is a 
Character arrays It is treated as a sequence of character 
array elements. Each array element is a record of the file. 


The ordering of the records of the file is the same as_ the 
ordering of the arrev alements in the array (5.324). Every 
record ef the fila has the same lengths, which Is the Jength 
of an array element in the arraye 


(4) The variables array elements or ‘substring that is the record 
of the internal file becomes defined by writing the record. 
If the number of characters written in a record is tess than 
the lenoth of the records the remaining portion of the record 
is filled with blanks. 


(5) A resord may be read only if the variabley array elementy or 
substring that is the record is defined, 


(6) A variables, array elemants or substring that is « record of 
an internal ila may hecome defjned (or undefined) by means 
other than an output statement. For examples the variables 
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array element, or substring may become defined by a character 
assignment statement, 


An intarnal file is always positioned at the beginning of the 


first record prior to data transfers 


2 Standard_Internal_Eile Restrictionse 


A standard Internal flte has the Following restrictions: 


(1) 


Reading and writing records is accomplished only by 


sequential access formatted input/output statements (1368.1) 


(2) 


“V3e 265% 


that do not specifly ltlist-directed formattings ar NAMELIST 
Formatting (13.4 (6)). 


An auxiliary input/output statement must not specify an 
Internal file 


3 Extended_Internal File. Propnperties 


An extended internal file has the following properties. 


(1) 


(2) 


(3) 


(4) 


(5) 


The file is specified by a variables array elements, or array 
of type other than charecters hit or helf precision. If an 
array elament is uséds the flie begins with the array 
elenent and extends through the end of the arraye 
Otherwises the file is the variable or array specifiede 


A record of the file is on2 or more contiguous numeric 
storaje units. 
The length of ae record of the file is measured in 
charactarss and is eaual to 
a * © 
wheres . 
a is the maximum number of characters that can be 


stored in a single numeric storage unit at one 
time 


Oo is tha number of numeric storage units in the 
record 


Every record of the file has the same Jenatthe 


Tha varlable or arrav element(s) that is a record of the 


file is defined by writing the recorde If the number of © 


characters written in arecord is less than the tength of 
tha records, the ramatning portion of the racord is filled 
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with dSlankse 


(6) A recerd may be read only if the variable or array 
; element(s) that is the record is defined. 


(7) A -variabte or array eliement{s) that Is a record of the file 
may become defined ar undefined by means other than— an 
output statement, 


(8) An extended Internal file is always positioned at the 
initlal point of the first record prior to transfer. 


132626524 Ex¢gandsede Intarosl— FileBestrictions 


An extended internal file has the folloning restrictions 


(1) Reading and writing racords is accomplished only by DECODE 
and ENCODE statements (13.14). \List-directed or NAMELIST 
formatting must not be specified, 


(2) An auxiliary input/output statement must not specify an 
extendad interna} files 


13.3 UNTTS 
A unit is a means of referring to a filee 
1363e1 UNIT_=XISTENCE 


Aw any given times thare is @ processor-deternined set of units that 
gre Satd to exist for an execytable program. A unit exists for each 
allowed external unit identifier. 


Al} input/output statements may refer to units that exist. The 
INQUIRE and CLOSE statements may also refer to units that do not 
existe 


1343062 CONNECTION _QE-ALUUIT. 


A unit has aoeproperty of being connected or not connected. If 
connectéds jit refars to a filee A unit may become connected by 
praconnections Inollicit connections or by the executian of an OPEN 
statement. The property of connection is symmetric: if a unit is 
connected to a filey the file is connected to the unite 


Prasonnection means Chat tha unit is connected to a fille at the 
-bayginning of axecution of the executable program and therefore may 
be referenced by input/output statements without the prior execution 
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of an OPEN statement. 


Implicit connection means that if a unit that is Not connected ts 
referanced in a data transfer cr file positioning input/output 
statement. }|t becomes . connected to a eprocessor—determined file 
immediately prior to the execution of the input/output statemente 
The neme of the file to which the unit becomes connected is 
determined In the sama manner as for an OPEN statement for which the 
FILE= specifier is omitted. 


All input/output statements excenrt OPEN» CLOSEs and INQUIRE must 
raference a wyunlit thet is connected to a fille and thereby make use of 
or affect that file. 


A file may be connected and not exist. An @xaumple is a preconnected 
nea Fidee 


. The max imum number. of units that may be connected to files at any 
one time is processor dependents, but must not be less than 50. 


A unit must not be connectad to more than one flle at the same times 
but an axternal File may be connected to more than one unit at the 
same time. ‘lowevers means are provided to change the status of a 
unit and to conneet a unit to a differant fila. | 


After ao unit has bean disconnected bv the execution of a CLOSE 
statements it may be connected again within the same executable 
program to the cama file or a different file. After a file has heen 
disconnacted by tha exacution of 2 CLOSE statements it may be 
connected ayain within the same executable program to the same unit 
or a different unite Notes howevers that the only means to refer to 
a File that has been disconnected Is by Its name In an OPEN or 
INQUIRE statemente Therefores there may be no means to reconnect an 
unnamed file once it tis disconnected. 


13.363 UNIT SPECITEIER_AND_IDENTIEIER. 


The form of a unit specifier is: 


CUNIT =] yu 


where u is an external unit identifier or an jnterna! file 
identifier. 


An axternal unit identifier is used tn refer to an external file. 
An internal file identifier is used to refer to an internal file, 


An axternsl unli identifier is one of the following: 


(1) A Scalar integer or scalar Boolean expression e such that 
aii cher 
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(2) INTla) has an integer value in the range 0-999s ofr 


(b) BOOL(e@) has a value of the form L"f£™%, where f is a 
sequence of one to saven latters or digitss starting 
with a ftetter,s, comprising a valid system file name. 

Upper and tower case letters in the file name are 
interpretad as varients of the same tetter. 


There ts a correspondence batween certain pairs of external 
unitss In case ({al)s the unit identified by the value of 
INT(e) corrasponds to the unit identified by "TAPEK"s, where k 
is the digit stringy with no teading zeross representing the 
value of INT{e@), In case (b)y if f is of the form TAPEks 


where ic Js .a digit strings with no feading Zeros, . 


representing an integer value in the range 0-999, then the 
unit identified by the value of BOOL{#) corresponds to the 
unit jdentified by the value of k3; if £ is not of this forms 
then no correspondence exists in this casee 


A eorpespondance between two external units means that if one 
of the external units ts connected to a file then the other 
unit is also connected to the file, 


(2) An asterisks identifying a particular processor-determjned 
external unit that is preconnected for formatted sequential 
accesS (130942). 


The external unit identified by the value of ge is the sams external 
unit in all program units of the executable programe In the 
axamp pas 


SUBROUTINE A 
READ (6) X 


SUBRDUTINE B 
N=6 
REWIND 


the value 6 used in both program untts Identifies the same external 
unite 


An axternal unit identifier in an auxiliary input/output statement 
(13.10) must not be an asterisk. 


An internal. file. identifier provides the means of referring to a 
standard or axvtended internal file (13.2.5). An internal file 
idantifier for 3a standard Internal fille is the symbolic name of a 
character variables character arrays character arrey sections 
fea cter array aleaments or character substringe An internal file 

dantitier for an extended Internal file ts the symbolic name of a 
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13.363 UNIT SPECIFIER AND IDENTIFIER. 
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yariables, arrays array sactlons or array element of type other than 
characters, bit or half-precision. oe 


If the optional characters UNIT= are omitted from the unit 
specifiers the unit specifier must te the first item in a tist of 
specifiers, | : | 
13.4 EQRMAT_SPECIEIER_AND_IDENTLEIER 
The form of «a formal sgeasifier is: 

[FMT =] £ 
whare £ is a format identifier. 


A format identifier identifies a formate A format identifier must 
be one of the follosing: 


(1) The statament label of a FORMAT statement that appears in the 


Same program unit as. the format identifier. 

(2) An intesoer varlable name that has been assianed the statement 
labe! of a FORMAT statement that appears In the same program 
unit as the Format identifier (10.3). . 

(3) A character array name or character erray section (146122). 

(4) Any scalar character expression except a character expression 
involving concatenation of a dummy argument or variable whose 
length specification ts an asterisk in parenthesese Notes 
that a character constant is oermitted. 

(5) An asterisks specifying list-directed formattinge 

(6) A NANELIST group name, 


(7) An array nama or array section of type other than characters 
bit or half precisione 


If the optional characters FNT= are omitted from the format 
speciflers the format specifier must be the second item in_ the 
control information list and the first item must be the unit 
specifier witneut the optional characters UNIT=. 
13.5 RECORD _SPECIELER 
The form of a record specifier is? 

-REC = gp 


where ro is an integer scalar expression whose value iS positiveée 
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It specifies the number of the record that is to be read or written 
in a file connected for direct accass. 


»56 ERROR_AHD_END-OE-EILE_ CONDITIONS 
rie of input/output: error conditions is processor dependent. 


An end-of-file condition exists If elther of the following eavents 
occurs: 


{1) An endfile record is encountered during the reading of a file 
conne In this cases the file is positioned after the endfile 
records 


{2) An attempt is made to read a record beyond the end of = an 
internal file. 


If an error condition occurs during execution of an input/output 
Statements execution of the input/output statement terminates and 
the position of the fille becomes indaterminetea. 


If an arrer condition or an end-of-file condition occurs during 
execution of a READ statements execution of the READ statement 
terminates and the entities specified by the input Jist: and 
imolied-DO varlabies in the Input Tlst bacome undefined. Note that 
variables and array elements appearing only in subscripts» substring 
expressionsy. and implied-DQ parameters in an input tist do not 
bacome undefined when the antities specified by the list become 
undefined. | 


If an error condition occurs during execution of an output 
statements axecution of the output stetemant terminates = and 
implled-DO-variabsJes In the output list become undefinads 
If an error condition occurs during executjon of an input/output. 
Statement that contains neither an input/output status specifier | 
(15.7) nor an error specifier (13.7.1)» or if an end-of-file 
condition occurs during execution of a READ statement that contains 
neither an input/output status specifier nor an end~of-file 
specifier (1367e2}s3 axecution of the executable program iis 
terminated. 
13.7 I/O_STATUS» ERROR» AND_END-OEF-EILE_SPECIELERS 
The Forma of an Lnout/Jouteput status spacifier is: 

IISTAT = jigs 
whera los is an Integer varlable or tnteger array element. 
Execution of an input/output statement containing this specifier 
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causes ios to become defined: 


(1) with a zero value $f neither an error condition nor. an 
end-of—fijile condition is encountered by the processors 


(2) with a processor-dependant positive integer value if an error 
— eonditton is encountereds or | 


(3) with a processor-dependent negative integer value if an 
and-ot-—fjlea condition is ancountered and no error condition 
ds encountered. 

13.7.1 ERROR SPECTETER. 
Thea form of an @fcreor specifier is: 


ERR =. § 


where s is the stakement tJabel of an executable statement that 
appears in the same program unit as the error specifiere 


If an input/output statement contains an Oarror specifier and the 
processor @ncounters an error condition during execution of the 
statements. . 


{1) execution of the input/output statement terminatesys 


(2) the oanstltilon of the file specifled in the input/output. 
statement becomes indeterminates . “ 


(3) if the input/outout statement contains an input/output status 
specifier (13.7)» the vartlab!e or array element dos becomes 
defined with a processor—dependent positive integer values 
and 

(4) execution continues with tha Statement Jabeled gs. 

1307e2 ENDADEREILE_SPECTELER} 
The form of an end-of-file specifier is: 
EMD = § 


where s is the statement tabel of an executable statement that 
appears In the same program unlit as the end-of-flle spaciflere 


If a READ statement contains an end-of-file specifier and the 
processor ensounters an ond=-of-file condition and no error condition 
during execution of the statement: 


(1) execution of the READ statement terminatesys 
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(2) Ef the READ statement. contains an input/output status 
specifier  (13,7)s the variable or array element jos becomes 
dafined with a processor—deoendent neyative integer values 
and . 

(3) execution continues with the statement Jaheliad sa. 

13-8 READs WRITEs PRINTs AND PUNCH STATEMENTS 

The READ statement is ths data transfer Input statemente The WRITEs 

PRINTs and PUNCH statements are the data transfer output statements. 

'. The forms of the data transfer input/output statements are: 

R= “AD (silist) Cbolis:] 
READ £ Ceiolist]. 
WRITE (gidlst) Ciolist} [51 

PRINT £ Cyiolist] [5] 

PUNCH £ Tsjiolist] [51 


where: cilist is a control information list (13+8.1) that includes: 


{1) A raference to the source or destination of the data 
to be transferred 


(2) Optional specification of editing processes 


(3) Optional specifiers that determine the execution 
sequence on the occurrence of certain events 


(4) Optional specification to identify @ record 


(5) Ootianal specification to oravide the return of the 
input/output status 


f£ is a format identifier (13.4) 


jdolist is an input/output list (13.8.2) specifying the data 
to be transferred 


If the format tdentifier £ ts an astarisks the list lolist In a 
WRITE, PRINT or PUNCH statement may be followed by a comma, The 
sonmma-has no affect. If the format identifier £ is a HAHELIST group 
name (13.14) joalist must not be present. 
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1365-1 CONTROL TNENRMATION LIST. 


A gontrol informatioan Lists gilists is ai Vist (2211) whose Jist 
items may be any of the following: 


oe + 
i: CUNIT =] y : 
: CEMT = 7] £ ' 
; REC = co : 
: IJSTAT = tos 3 
: ERR = § H 
i; END = § : 
iste pet coca ceca ae + 


N control information list must contain exactly one unit specifier 
(13.3e3)9 at most onz2 format specifiar (13.24)5 at most one record 
specifier (13.5)5 at ost ona Input/cutput status specifier (13.7), 
at most one error specifier (13-6721), and at most one end-of—file 
specifier (13.742). . 


If the control information Jlist contains a format specifiers tha 
statement is a formatted input/outout statement; otherwise,s it is an 
untorcupatsed ineuit/outeut statenant. . 


If the contro} information list contains a record specifiers the 
statement is a. direst aecess ineutloutpus statemant; otherwise, it 
is a sequential assess input/outbut statement. 


If the optional characters UNIT= are omitted from the unit 
soaciflers the unit specifier must be the first item in the control 
information liste 


If ¢hea optional characters FMT= are omitted from the format 
spaciflers the format snecifler must be the second item in the 
control information tlist and the first item must be the unit 
specifier without tha optional characters UNIT=. 


A control Information list must not contain both a record specifier 
and an end-of-—-fjle specifier. 


If the format identifier is an asterisks, the statement is a 
listrdirected loput/outout stateamant and a record specifier must not 
be presente 


If the format Identifier ts a NAMELIST group names the statement is 
A NAMELIST inout/outout statement and a record specifier must not be- 
presente 

In a WRITE statements, the control Information list must not contain: 
an end-of-file specifier. | 
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If the unit specifier specifies an internal files, the control 
information list must contain a format identifier other than an 
asterisk or a NANELIST group name and must not contain a record 
specifier. 


13.5.2 INPUT/OQUIPUT_LISI 


An inbout/outout List> iolists specifies the entities whose values 
are transferred by a data transfer input/output statement. 


An input/outeut list is a Tist (2211) of input/output list items and 
implied-DO lists (13.28.2.3). An input/output List item is either an 
input list item or an output list item, 
If an array name appears as an Input/output list items, it is treated 
as if all of the elements of the array were specified in the order 
 YJiven by array element ordering (5.3.4). The name of an 
assumed-size dummy array must not appear as an Input/output List 
item. 
13e3e2e1 Lnput List_Itemse 
An ineut list item must be one of the following: 

(1) A variable name 

{2) An array element name 

(3) A character substring name 

(4) An array nane 


(5) An array s2ction name 


Oniv input list items may appear as input/output list items in an 
input statement, 


13.8.2¢2 Quiout List Itanss 
An output List item must be one of the following: 
(1) A variable name 
(2) An array element name 
(3) A character. substring name 
(4) An array name 


(5) An array section name 
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(6) Any other expression except a character expression involving 
concatenation of an operand whass length specification Is an 
asterisk in parentheses untess the operand ts the symbolic 
name of a constant 


Mote that a constanty an expression involving operators or function 
referencess of an expression enclosed In parentheses may appear as 
an outout Iist item but must not appear as an input list item. | 


13.%.4253 Implied=DO_Lists 
An Imaliad-DO list is of the form? 
( dlists» i = @l»s e2 [3283 ] ) 


wheres is el» e2y and e3 are as specified for the DO statement 
(11,190) 


dlist is an input/output list | 

The range of an implied-DO tist is the list dlist. Note that glist 
nay cantain implied-DO tists. The iteration count and the values of 
the DO—variable j are established from el» e2s and e@3 exactly as for 
a DO—-loop. In an Input statements the DO-variabte2 ds or an 
associated entitys must not appear as an input list item in dliste 
When oan timptiad-DO Vist appears in an input/output list» The sist 
jtens in dlist are specified once for each iteration of the 
implied-DO Fist with appropriate substitution of values for any 
occurrence of the DO-variable I. 


13.9 EXECUTIAN_DE_A_DATA_TRAMSEER_LTNPUT/ZOUTSUT_ STATEMENT 
The effect of executing a data transfer input/output statement must 
be as if the following operations were performed in the order 
soecifieds: 
(1) Determine the direction of data transfer 
{2) Identify the unit 
(3) Establish the format If any is specified 
(4) Position the file prior to data transfer 
(5) Transfer data between the Fila and the entities specified by 
the input/output list (If ans) or Identifled by the NAMELIST 
group name : 
(6) Position the file after data transfer 


(7) Cause the svecifled Integer variable or array element in the 
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er ene status specifier (if any) to become defined 


13.91 DIRECTION OF _DATA_TRANSEER 


execution of a READ statement causes yvalu@s to be transferred from a 
file to the entities specified by the Input lists If one Is 
specified. 


Execution of a WRITEs PRINTs or PUNCH statement causes values to be 
transferred to a file From the entitles specified by the output fist 
or HAMELIST group name and format specification (if any)e Execution 
(of a WRITE, PRINTs or PUNCH statement for a file that does not exist 
ereaates the files, unless en error condition occurs. 


A data transfer input/output statemant that contains a control 
information fist (1323.1) Includes g unit specifler that identifies 
an external unit or an internal file. A READ statement that does 
not contain a_.control information tlist specifies a particular 
processor—daterminad units, which is the sama as the unit identified 
hv. an asterisk [In a READ statement that contains a4 control] 
information fiste A PRINT statement specifies some other 
processor-determined units which is the same 2s tha unit identified 
by an asterisk in a WRITE statement. A PUNCH statement specifies 
still. another processor-determined unit. Thus each data transfer 
input/output statement identifies an external unit or an internal 
file. 


Data transfer tlaput/output statements that do not contain control 


information J|ists refer to units that are preconnected as follows: 
af ee ree nan aoe ee fe eee ee re een re me a ne ee ee fp me mee ees oe en moe + 
; Statement | Standard Unit! File Name $ 
en - fo se a ae eae te me ae ee eee ea me fen a ee ee woe a nae ee + 
t READ r+ L™INpuTt i pee H 
; PRINT i; tsouTeutT"™ { touTpuT’ 3: 
i ee +  L™ PUNCH" H oe : 
fp me ee ee ee ee me ae oe me et ae ne et ee Sf mm me tt a on en ne ee + 


The unit idantified by a data transfer input/output. stetement must 
be connected to a fila when execution of the statement begqinse 


Data transfer statements that do not contain a control information 
list refer to preconnectad files that are processor defined. 


13.9, 3 “ESTABLISHING A_FORMAT 

If the control information fist Contains 4 format identifier other 
bhan an asterisk or NANELIST group names the formet specification 
identified by the format identifier is established. If the format 
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identifier is en asterisks list-directed formatting Is astablished. 
If the format identifier is a NAMELIST group namey NAMELIST 
Formatting (147) is established. 


On outputs iF an i Internal file has been specifleds a format 


specification (14.1) that is in the file or is associated (18.1) 
with the file must not be specified. 


135504 EILE_2QOSITION PRIOR_IN_DATA_IRAUSEER 


The positioning of the rite prior to data transfer depends on the 
method of accass: sequential or direct. 


If the file cantains an endflite records the fille must not be 
positioned after the endfile record prior to data transfer. 


13490401 Seuyential Access 

On input, the file is positioned at the beginning of the next 
records . This record becomes the current record. Gn outputs a new 
record is craated and becomes the last record of the file. 


An Internal file is alviays positloned at the beginning of the first 
record of the files This record becomes the current record. 


13.9.4.2 Direct Access 
For direct accesssy the file is positioned at the beginning of tha 


record spacified by the record specifler (13.5). This recerd 
becomes the current record. 


135%5 DATA. ITBAUSEER 
Data are transferred between records and entities specified by the 
input/output tiste The list items are orocessed in the order of the 
input/output fist 
All values needed to determine which entities are specified by an 
input/output list item are determined at the beginning of the 
processing of that item, : 
Als ‘veluas” are transmitted to or fron the entities specified by a 
list item prior to the processing of any succeeding fist item. In 
tha example, | 

READ (3) Ns ACN) 


two values are read; one is assigned to Ny» and the second is 
vssigned to A{(N) for the new value of Ne | 


An ftnput JTist ftems or an entity associated with it (18.1.3)5 must 
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not contain any portion of the established format specification. 


If an internal file has been specifieds an input/output list item 
must not be in the fil@ or associated with the file. 


A DO-variable becomes defined at the beginning of processing of the 
items that constitute the range of an implied-DQ list. 


Mn outputs every entity whose value js to he transferred must be 
, definads 


On ftnputs an attempt to read a record of a file connected for direct 
access that has not previously been written causes all entities 
spacified by the Inout list to hecoma undefinede : 


13-9+50e1 Untormattad Data _ Transfer 


During unformatted data transfer» data are transferred without 
editing between the current record and the entities specified by the 
input/output Jiste Exact!y one record is read or written, 


In inputs, the fils must be positioned so that the record read is an 
unformatted record ar an endfile record. 


Mn inputs the number of values required. by the input list must be 
less than or equal to the number of values In the record, 


On inputs the type of each value in the reeord must agree with the 
type of the corresponding entity in the input lists except that one 
complex value may correspond to tro raal jist entities or two real 
yalues may correspond to one conplex list entity. If an entity In 
the input list is of type characters the JYength of the character 
entity must ayree with the length of the character valuee 


Alsos a Boolaan value may correspond to an Integer or real iist 
antltive or to either half of a double precision or complex fist 
entity; and an integer or real values or either half of a double 
precision or complex values may correspond to a Boolean list entity. 


On output to a fille connected for direct accessy the output list 
must not specify more values than can fit into a record, 


Jn outputs, If the file Is connected for direct access and the values 
specified by the output list do not FIIl the recordy the remainder 
of the record is undefined. 


If the fila is connected for formatted Input/outputs unformatted 
data transfer is prohibited, 


The unit specified must be an external unit. 
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13294502 Formatted Data_ Iransfe 


During formatzed data transfers data are transferred with editing 
between the entities specified by the input/output fist and the 
filee The current record and possibly additional records are _ read 
or writtane | 


On inputs the fila must be positioned so that the record read is a 
formatted record or an endfile record. 


If the file is connected for unformatted input/outputs formatted 
data transfer Is prohibited. | 


13069e5e2e1 USING A_EDRHUAT SPECTEICATION 


Tf a format specification has been establisheds format control 
(14.3) Is initiated aie editing is performed as described in 14.3 
through 14.5 . 


Jn inputs, the input list and formet specification must not require. 
more characters from a record than the record contains. 


If the file is connected for direct accessy, the record number is 
increased by one as Bach sucecarding record is read or nritten.. 


Qn outputs If the File Is connected for direct access or is an 
internal file and the characters specified by the output Jist and 
Tormat do not fili a records blank characters ars added to fill the. 
record. 


Mn outputs if the file is connected for direct access or is an 
internal files tha output Jist and format specification must not 
svecify mara characters for a record than can fit Into the record. 


1369e5e202 LISTADIRECTED_ EQRMATTING 


If ftistediracted formatting has b2en establisheds editing Is 
performed as described [In 1426. 


13.965e2e3 PRINTING OF_EDRMATIED RECORDS 


The transfer of Information In a formatted record to certain devices 
determined by the processor is called printing. If a formatted 
record is printeds tha first character of the record Is not printed. 
The remaining characters of the records if anyy are printed in-= one 
Tine beginning at the left margine . 


The first sharacter of such a record determines vertical spacing as 
Fojtows: 
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V3 Fe2e3 PRINTING as FORMATTED RE CORES: 
vf et em ee et me one vn ne re ee ae cf eca a orn ee ee ee ten one ca en oe ct ae ee eae ae ee + 
} Character } Vertical eR aet os Before Printing $ 
pe me es ee int ee men ee ae Sn ooo, + 
H Blank i One Line H 
} @) $ Two Lines ; 
} 1 : To First Line of Next Page H 
H + ' No Advance : 
fe me ee mee eee ne tae eo ooo + 


If there are no characters in the record (1425464), the vertical 
spacing .is one tine anid no characters other than blank ere printed 
in that line, 


A PRINT statement does not imply that printing will occurs and a 
WRITE statement does not imply that printing will not occur. 


1329.6 ELLE POSTITON AETER DATA _TRAMSEER 


If an end-of—file condition exists as a result of raeding an endfile 
records the file is positioned after the endfile record, 


If no error condition or end-of-file condition existss the file is 
positioned after the last record read or written and that record 
bacomeas the preceding recorde A racord written on a fils cennected 
for seguential access becomes the last record of the file. 


If the file is positioned after tha endfile records execution of a 
data transfer [nput/output statement Is prohibited. However, 4 
BACKSPACE or REWIND statement may be used to reposition the file. 


If an ®rror condition exists», thea position of the file ts 
indetrerminate. 


13.9.7 INGUT/OUTPUT STATUS _SPECTEIER DEFINITION 


If the data transfer [nput/output statement contains an Input/output 
status specifier, the integer variable or array element jos becomes 
definede If no @rror condition or end-of-File condition existss the 
value of jos is zeroe If an error condition existss the velue of 
ios is positive, If an end-of-file condition exists and no- error 
condition axistss the value of ios is negative. 


13.10 AUXILTARY THSUT/IUTPUTLUSTATENENTS 

.13.10.1 OPEN _ STATEMENT 

An PEN statement may be us®d to connect (146332) an existing fils 
to a units crezete a File (13.2.1) that is preconnecteds create a 
File and connect .it to a units or change certain specifiers of a 


connection between a file and a units 
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13.0 INPUT/OUTPUT STATENENTS 


13e10e1 DPEN STATEMENT 


The Form of an OPEN statement is: 


PEN Colist) 


where olist is a list (2211) of specifiers: 


Fe con recom ome eee ere mew re 
i CUNIT =] y H 
+ IOSTAT = jos 3 
; ERR = § H 
: FILE = fino : 
: STATUS = sta 3 
1 ACCESS = ace ? 
: FORM = £y ; 
+ RECL = cl : 
: BLANK = blink } 
1 BUFL = bL ; 
Sf me ere ee re aoe ee mare mee oe on a ee me sa + 


olist must contain exactly one external unjt specifier (13.3.3) and 
may contain at most one of each of the other specifierse 


The other speciflers are described as follows? 
TOSTAT = igs 


Is an Ingut/output status specifjer (13.7). Execution of an 
OPEN statement containing this specifier causes jos to become 
defined with a zero value If no error condition exists or 
with a processor-dependent positive integer value if an error 
condition exists, 


is an error specifier (1347.1). 
FILE = £in 


fin is a character calar expression whose value when any 
trailing blanks are remoyed fs the name of the file to be 
connacted te the specifled unit. The alphabetic case of 
letters in the value of the character expression is not 
Significante The file name must be a name that is allowed by 
thea procassore If this specifler ts omitted and the untt Is 
not connected to a files it becomes connected to a 
processor-determined filee (See also 13e1l0elele) 


The processor dnatermines a file name From the unit specifier uy as 
Follows 


if INT(u) has a value representable by the digit string p in the 


CONTROL DATA PRIVATE 


Cont 


ea ane aly ee 


13.0 
13.1 


VO Ae ey wee 


STAT 


ACCE 


FORM 


- — in gee. . = 13-24 
ro! Data Corporation Standard FORTRAN 
, 2 83/06/30 


AOD OD UD CU ee Nene WOE peels WIND cme seleD geese AER RE WD OAD COE OD ce WE END AER SEND WAND ND SOS HOTS SUD ORD OD GME ED VOR RO et OTD NS TRE OWED SOM GUT HONE SEND SUE Chae NCD GED SOM AES GUEE wR AEE SA re ENE GED em GE ED END mend eERD Gee BEND 


INPUT/TUTPUT STATEMENTS 
Oe-1 OPEN STATENENT 


range 0-999, tha fila name is TAPED. 


Lf BONL(u) has a value of the form L"f"» where £ Its a vatid 
system File nama sterting with a latters the file name is £f 
exceot in tuo cases: |f BNOL(u) has the value L"™INPUT™ the file 
nama is INPUTs and if BOOL(y) has the value L'QUTPUT" the file 
name is OUTPUT. Upper and lower case letters in the file name 
are interpreted as variants of the same letter. 


Otherwises the unit specified does not exist. 
US = sta 


sta is @ sealar character expression whose value when any 
trailing blanks are removed is OLD» NEW, SCRATCHs or UNKNOWN, 
The alphabetic case of Jetters in the valus of the character 
exprassion is not significant. If OLD or NEW Is specifieds a 
FILE= specifier must be given. If OLD is specifiedy the file 
Must exist. If NEW is specified, the file must not existe 
Successful. e@xacution of an OPEN statement with NEW specified 
creates the fille and changes the status to OLD (13.10.1.1). 
If SCRATCH is specified with an unnamed files the file is 
connected to the specified unit for use by the executable 
program but is deleted (13.2.1) at the executicn of a CLOSE 
stateyent referring to the same unit or at the termination of 
the executable programe SCRATCH must not be specified with a 
naned file, IF UNKNOW is specifiads, the status is processor 
davendent. If this specifier ts omitteds a value of UNKNOWN 
is assumed, 


39S = age 


azec is a scalar character expressjon whose value when any 
trailing blanks are removed is SEQUENTIAL. or. DIRECT. The 
alphabetic cas2 of fetters In the value of the character 
expression Is not significant. It specjfjes the access 
method for the connection of the file as being sequential or 
direct (13-24%). If this specifiar is. omitted, the essumed 
value is SEQUENTIAL. For an existing files, the specified 
access method must be Included in the set of allowed access 
methods for the file (1322-4). For a new files the processor 
erzateas the file with a set of allotied access methods that 
includes the soecifled method. 


= fn 


fm is a scalar character expression whose value when any 
trailing blanks are removed is FORMATTEDs UNFORMATTED,s or 
BUFFERED. The alphabetic case of letters in tha value of the 
character axprassion is not significante It specifles that 
the file is befng connected for formatteds unformatted, — or 
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puffered Input/outputs, respectively. If this specifier jis 
omitted, a value of UNFORNATTED is assumed if the file is 
being connected for direct accesss and a value of FORNATTED 
is assumed if the file ts being connected for sequential 
access» For an existing filey the specified form must be 
included in the set of allowed forms for the file (1342.2). 
For a nen Files the procassor craates the file with a set of 
allowed forms that Includes the specified form. 


tl is a ssalar integer expression whose value must be 
positive. [It specifies the length of each record in ae file 
being connected for direct access or for formatted sequential 


acCeSS. If the fite is being connected for formatted 
Input/outputs the fength is the number of characters. If the 
file is being connected for unformatted direct access 


input/outputs thea tenath is measured In processor~déepandent 
units. For an existing files the value of ci must he 
included in the set of allowed record JSengths for the file 
(13.2e2).- For anau files the processor creates the file 
with a set of allowed record tfengths that Includes the 
specified value. This specifier must be given when a file Is 
beiny connected for direct access. 


BLANK -= blink 


blink is a #$scalar character expression whose value when any 
trailing blanks are removed is) NULL or ZERO. The alphabetic. 
case af tatters in the value of the character expression is 
not significante If NULL is specifieds al! blank characters 
in numeric formatted input fields on the specified unit are 
ignoreds except that a Flatd of all bianks has ao value of 
ZeT Os IF ZERDN is specifieds all blanks other than leading 
blanks are treated as zerose If this specifier is omitteds a 
value of NULL is assumed. This specifier is permitted only 
for a fille baiag connected for formatted [nput/output. 


The unit specifier is required to appear all other specifiers are 
opbionals except that the racord length cl must be specified If a 
Flile js being connected for direct access. Note that some of. the 
specifications have an assumed value if they are omitted. 

Tha unit spoesified must existe 

A unit .may be. connected by execution of an OPEN statement in any 
program unit of an executable program ands once connecteds may “he 
refearanced in any program unit of tha oxecutable programe 


BUFL=bL 
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bl is an integer or Boolean expression. The value. of INT(bL) 
must be nonnagative and spacifies the buffer ltength (15e1le1). 


£351068151 OPEN of _a_Connected Units 


If aeunit is connected to a file that existss execution of an OPEN 
statement for that unit Is permitted. If the FILE= specifier is not 
Included in the OPEN statements the file to be connected to the unit 
is the same as the file to which the unit is connected. 


If the file to be connacted to the unit does not exists, but Is the 
Sama as the file to which the unit is preconnectedy the properties 
specified by the OPEN statement become a part of the connectione 


If the file to be connacted to the unit is not the same as the file 
to which the unflt Is connecteds the effect is as if a CLOSE 
statement (13.10e2) without a STATUS= specifier had been executed 
For the unit immadiately prior to the execution of the OPEN 
statement. 

If the file to be connected to the unit is the same as the file to 
which the unit is connecteds, onty the BLANK= specifier may have a 
yalue different from the one currently in effect. Execution of the 
OPEN statement causes the new value of the BLANK= specifier to be in 
effecte The position of the file is unaffected. 

If a file ts connected to a units execution of an GPEN statement on 


that file and a different unit ts permitted. The effect is that the 
File becomes connected to more than one unite 


13.10e2 CLUSE_STATERMENT. 


A CLOSE statement is used to terminate the connections of a 
particular 7i12 to the unit or units to which Tt it connected, 


| The form of a CLOSE statament Is: 
CLOSE (ellist) 


where ellist Is a tist (2.11) of sveciffers: 


fee nr ee re cae ae ee ke a + 
:; CUNIT =] wy ‘ 
+ IOSTAT = ias 3 
$} ERR = g i 
i STATUS = sta : 
fe en ae me ne er ae ne a a oe we 4: 


cellist must contéin exactly one external unit specifier (13.3.3) and 
may contain at most one of each of the other specifierse 
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The other specifiers are described as follows: 

“TOSTAT = ios 

is an Input/output status specifier (13.7). Execution of a 
CLOSE statement containing this specifier causes tos to 
heconma dafinad with a zero valua if no error condition exists 
or 4ith a processor-dependent positive integer value If an 


error condition exists, 


RR 


i 
gA 


is an error specifier (1347.1) 
STATUS = sk3 


sia is a scalar character expression. whose value when any 
trailing dtanks are removed is KEEP ofr ODELETE. The | 
alphabetic case of letters In the value of the character 
expression is not Ssignificante ste determines the 
disposition of the file that Is connected to the svecifled 
unit. KEEP must not be specified for a file whose status 
prior to execution of the CLOSE statement is SCRATCH. If 
KEE® is specified for a File that existss the File continues 
to exist after the execution of the CLOSE statement. If KEEP 
is specified for a file that does not exist, the file will 
not exist after the execution of the CLOSE statement. If 
DELETE is spacifleds the file will not exist efter execution 
of the CLOSE statement. If this specifier is omittedy the 
assumed value is KEEP», unless the file status prior to 
axacucion of the CLOSE statement is SCRATCH» in which case 
the assumed value Is DELETE. 


execution of a CLOSE statement that refers to a unit may occur in 
any program unit of an executabls program and need not occur In the 
sane progran unit as the execution of an OPEN statement referring to 
that unite 


Exacution of a CLOSE statement specifying a unit that does not exist 
or hes no fille connected to ft Is permitted end affects no file. 


After aeeunit has been disconnected by execution of a CLOSE 
statements it may be connected again within the same executable 
programs elther ta. the same file or to a different fille. After a 
File has been disconnected by execution of a CLOSE statements it may 
be connected again within the same executable programs cither to the 
same unit or to a Jifferent units provided that the file still 
axistse 


If a file is connected to more than one unity the CLOSE statement 
may refer to any one of these units with the same effect: eech unit 
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13.0 INPUT/OQUTPUT STATEMENTS 
1301002 CLOSE STATEMENT. 


is disconnected. 
13610e2e1 Implicit Close at lTernination of Executions 


At termination of execution of an executable program for reasons 
other than an error sonditions all} units that are connected are 


closed. Each unit Is closed with status KEEP unless the file status © 


prior to termination of execution was SCRATCH, In which case the 
unit is closed with status DELETE. Not2 that tha affect is as 
thougn a CLOSE statement without a STATUS= specifier wera executed 
an each connected ynit. 


1341063 TNQUITRE STATEMENT. 

An INQUIRE statement may be used to inquire about properties of a 

particular named file or of the connection to a particular unite 
Thare are tuo forms of the INQUIRE statement: Inquire by file and 


Inquire by unit. Alf value assiqnments are done according to. the 
rules for assignment statements. 


The IMQUIRE statement may he executed befores whiles or after a file 
is connected to a uynite All values assigned by the INQUIRE 


statement are those that are current at the time the statement is 
executed. 


The form of an INQUIRE by file statement is: 

TNQUIRE (LEList) 
where iffist is a list (2.11) of specifiers that must contain 
axactiv one file specifier end may contain other inguiry specifierse 
The LfLlisth may contain at most one of each of the Inquiry speciflers 
described in 134102343. . ; 
The form of a file specitler ts: 

FILE = fin 
where fin is a character expression whose value when any trailing 
blanks are removed specifies the name of the file being inquired 
about. The named file need not exist or be connected to a unite 
The value of Ein must be of a form accaptable to the processor as a 
File name. 
13.10.2322 THQUTRE_by Unites 
The form of an INQUIRE by unit statement Is: 
INQUIRE (iulist) 
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13.0 INPUT/OQUTPUT STATEMENTS 
13.10.302 INQUIRE by Unite 


where julist is a Uist (2e11) of specifiers that must contain 
exactly one external unit specifler (13.343) and may contain other 
 inguiry specifiers. The julist may contain at most one of each of 
tha inauirs specifiers described in 13210634356 The unit specified 
need not exist or be connected to a File.» If it Is connected to a 
Files the inquiry is being made about the connection and about the 
file connecteade 


13.10.3.3 Loduiry Soecltfiierss 


- The following inquiry specifiers may be usad jn either form of tha 


INQUIRE statement: 


ERR = § 
EXIST = 2 
OPENED = 
NUMBER = gum 
NAMED = pod 

NAME = fn 

ACCESS = ace 
SEQUENTIAL = seg 
“DIRECT = dtr 

FORM = fp 
FORNHATTSED = Emt 
UNFORMATTED = unf 
RECL = gel 


INSTAT = ios 
x 


fone ne ee ne we we ee we oe we oe we oe ne oe oe + 


- en ek ee? ee ee Se es oe ee ee es ee YS ee eS ee) 
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The specifiars are deserihed as follors: 

IOSTAT = ios 
is an input/output status specifier (13.7). Execution of an 
INQUIRE statement containing this specifier causes ios to 
become defined with a zero vyalu2 Tf no error condition exists 


or with a processor-denendent positive Integer value if an 
error condition existse 


is an error specifier (13.7.1) 


ex 


ttt 

> 

ii 

wy 

+ 
Hi 


ax is a logical variable or logical array element. Execution 
of an INQUIRE by file statement causes ex to be assigned the 
value true 4? there exists a Yile with the specifled name; 
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otherwises eax Is assianed the value false. Execution of an 
INQUIRE by unit statement causes ex to be assigned the value 
true if the specified unit exists; otherwise, ex is assigned 
the value false. 


OPENED = od 


od is a logical variable or.logical array element. Execution. 
of an INQUIRE by file statement causes od to be assigned the 
yalue trues HF the file specilfled Is connected to a unit; 
otherwises od is assigned the value falsee Execution of an 
INQUIRE by unit statement causes. od to be assigned the value 

true if the specified unit is connected to a file; otherwiseys 
oad is assigned the value false. 


NUMBER = pus 


oun. is an integer variable or integer array element that is 
assigned the value of the external unit identifier of a unlit 
that is current)¥ connected to the filee If more than one 
unit is currently connected to the filey the choice of the 
unit used to assign 29 value to num is as described below. If 
there is an external unit identifier yu currently connected to 
the Tile such that either 


(1) INT(y) has a value in the range 0-999» or 


{2) BOOL(yu) has a vatue of th? form L™TAPEK"s where k is 
an jnteger in the range 0-999 with no leading zeros 


then the value assigned to num will be in the range 0-999, 
{In case (1) the value assigned to num Is the value of us» and 
in case {(2) it is the value of k,. If external unit 
identifiers of both types (1) and (2) are currently connected 
to the files, the processor may assign elther a type (1) or a 
type (2) value,) Otherwises the value assigned to pum is of 
the form INT{L"£™")s» where £ Ts a valid system file name. 


NAMED = omd 


nod is a logleal variable or logical array element that is 
assiyned the value true if the file has a name; otherwises it 
is asstaned tha value false. : 


HAMNE = fn 


fn is a character variable or character array element that is 
essigned the value of the name af the Files, If the filie has a 
name; otherwise, it becomes undefinede If the name of the 
file contains alphabetic cheracters they wild be returned in 
upper casee Note that if this specifier appears In an 
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INQUIRE by file statements its value is not necessarily the 
same aS the name given in the FILE= specifier. For example, 
the processor may return a file name qualified by a user 
identification, Woweversy the value returned must he suitable 
for use as the value of a FILE= specifier in an OPEN 
statement. 


ACCESS = age 


acs is @ character variable or character arrey eslement that” 
is assigned the value SEQUENTIAL if the file is connected for 
seguential access» and DIRECT if the file is connected for. 
direct accesse If there is no conne crlons ace becomes 
undefinede . 


SEQUENTIAL = ga 


seq is a character variable or character array element that 
is assigned the value YES if SEQUENTIAL is included in the 
set of allowed access methods for the filles NO if SEQUENTIAL 
is not included in the set of allowed access methods for the 
files and UNKHOWN Gif the processor is unabla to determine 
whether or not SEQUENTIAL is [Included In the set of allowed 
access methods for the file. 


DIRECT = dir 


dir ts a character variable or ig ia! array element that 
is assigned the value YES if DIRECT . included in the set of 
alloyed accass matheds for the tite, NO if DIRECT fs not 
Included tn the set of allowed access methods for the files 
and UNKNOWN if the processor is unable to determine whether 
or not DIRECT is ineluded in the set of allowed access 
mathods for tha file. 


FORN = £4 


fo is a charactar yariable or character array element that Is 
assigned the value FORMATTED if the File is connected (for 
formatted input/outputs UNFORMATTZID if the fila is connected 
for unformattad input/outputs and BUFFERED if the file Is 
connected For buffered input/output. If there is no 
connections, fm becomes undefined, 


FORMATTED = fmt 


fmt is a character variable or character array element that 
is assigned the vaiue YES if FORMATTED Is Included in the set 
of allowed forms for the files, NO if FORMATTED jis not 
included in the set of allowed forms for the files and 


UNKNOWH Gif Ehe orocessor Is unable toe determine whether or 
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not FURMATTED is included in the seat of allowed forms for thea 
fjle, 


UNFORMATTED = unf 


unt is a character variable or character array element that 
is assigned the value YES if UNFORMATTED is included in the 
set of allowed forms for the files NO if UNFORMATTED jis not 
included in the set of atlowsd forms for the File» and 
UNKNOWN Ff the processor is unable to determine whether or 
not YNFORMATTED is included in the set of allowed forms for 
tha filee 


RECL = rel 


ceil is an integer variable or integer array element that is 
assigned the value of the record tenath of the file connected 
for direct access. If the file is connected for formatted 
input/output, the length fis the number of characterse If the 
Fila is connectad for unformatted input/output» the length Is 
measured in proacessor-dependent units. If there is ono 
connections col becomes undefined. . 


HMEXTREC = or 


nfo is an $=integer veriable or integer array element that Is 
assigned the value ntls where n is the record number of the 
last record read or written on the file connected for direct 
access. If tha file is connected but no records have bgen 
read oor written since the connections or is assigned the 
value 1. If the file is not connected for direct access or 
if the position of the File is Indeterminate because of a 
previous error conditions ofr becomes undefinede 


BLANK = blink 


blok is a character variable or character array element that 
is assigned the value NULL Tf null blank contro! is in effect 
For tne Tile connected for formatted Inoaut/autputs and is 
assigned the value 7cP0 if zero blank contro! is in effect 
for the fila connected for formatted input/output. If there 
is no connections or If the connection ts not for formatted 
input/outputs bink becomes undefinede 


A variables or array a@lamant that is. used as a specifler  In- an 
INQUIRE statemants or any associated entity,» must not be referenced 
by any other specifier in the same INQUIRE statement, 


Exacution of an INQUIRE by file statement causes ‘the specifier 
variables or array elements amds fns sege dirs Emts» and unf to be 
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assigned values only if the value of fin is acceptable to _ the 
processor as a file name and if there exists a file by that name; 
atherwises they become undefined. Mote that pum becomes defined If 
and only if od becomes defined with the value true, Note also that 
the specifier varlabtes or array slements accy Ems cells ore and bink 
may become defined only if od becomes defined with the value truee- 
Execution of an INQUIRE by unit statament causes the specifier 
variables or array elements num» omd»s fn» acces segs dirs £m» fmt» 
yunfs cele nr» and hink to be assigned values only If the specified 
unit exists and if a file is connected to the units; otherwises they 
becoma undefined. 

If an error caondjtion occurs during execution of an INQUIRE 
statements, all of the inquiry specifier variabies and array elements 
axczpt jag hecome undefined. 


Note that the specifier variables or array elements ex and od always 
hecona defined unless an errar condition occurs. 


13.10.4 EILS_ POSITIONING STAIZNENTS. 
The forms of the fila positioning statements are:. 
BACKSPACE u 
BACKSPACE {glist) 
ENDFILE y 
ENDFILS Calist) 
REWIND y 
REWIND (alist) 
where: u is an external unit identifier (13.3.3) 


alisk is a list (2.11) of specifiers: 


fe ee ee ee ne + 
+ CUNIT =] uf 
i IOSTAT = ios | 
; ERR = § 
fe tee ce ee ore er es an roe ee one a + 


alist must contain exactly one external unit specifier (13+3+3) and 
may contain at most one of 2a2ach of tha other specifiers. 


The external unit specified by a BACKSPACEs ENDFILEs or REWIND 
statement must be connected for sequential access, . 
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Executjon of a file positioning statement containing an input/output 
status specifier causes jos to become defined with a zero value if 
no error condition exists or with a processor-dependent positive 
integer value if an error condition exists. 


13.10.4.1 BACKSPACE Statements 


Execution of a BACKSPACE statement causes the file connected to the 
specified unit to be positioned before the preceding record, If 
there is no preceding records, the position of the file is not 
changed. Note that If tne preceding record Is an endfile records 
the file becomes positioned before the endfile record. 


Backspacing a file that is connected but does not exist Is 
prohibited. 


Backspacing over records written using IList-directed formatting is 
prohibited, 


13.10.42 SHDEILE_Statanranote. . 


Execution of an ENDFILE statement writes an endfile record as the 
next record of the file. The file is then positioned after the 
endfile record. If the File may also be connected for direct 
accessy only those records before the endfile record are considered 
to have. been writtens | Thusy only those records may be read during 
supséequant direct access connections to the filee 


After execution of an ENDFILE statements a BACKSPACE or REWIND 
statement sust be used to reposition the file prior to execution of 
any data transfer input/output statement, 


Exscution of an ENDFILE statement for a Fife that [s connected but 
does not exist creates the file. 


13010463 RENIND Statomante 


Execution of a REWIND statement causes the specified file to be 
positioned at its initial point. Note that if the file is etready 
posittoned at tts Initial potnts execution of this statement has no 
effect on the position of the file. 


Execution of a REWIND statement for a fjle that is sconnected but 
‘loss not exist is permitted but has no effect, 


~ 13e11 RESTRICTIONS ON _EUNCTION-REEERENCES_AND_LIST_ITEMS 
A fune ection aust not he referenced slthin an expression appearing 
anvyhere in an input/output statement if such a reference causes an 


input/output statement to be executed. Note that a restriction in 
the evaluation of Aaxpreassions (6.6) prohibits certain side effects. 
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13.12 RBESTRICTION_ON_INPUTZOUTPUT STATEMENTS 


Tf a units or a file connected to a units dees not have aj} of the 
properties required for the execution of certain input/output 
statementss those statements must not refer to the unit. 


13.13 WAMELIST Tu2UT/OUTRUT 


NANELIST providas rormatted input/output with processor-determinad 
aditing (14.7). 


A NAMELIS T-sroup_nams provides the means of referring to a NAMELIST 
input/output list. Usage of a jyroup name is the means of specifying 
NAMELIST formatting. A NAMELIST statement is used to specify a 
NANELIST group name and the input/output list to be subsequently 
associated with that: group name. | 

NAMNELIST formatting [Is established for an Input/output data transfer 
by using a NANELIST oroup name as the format identifier £ in a READ» 
WRITE, PRINTs or PUNCH statement (13.4 (6)). The statement must not 
Include an input/outsut list. 


13.1301 NAMELIST STATEMENT 


The form of a NAMELIST statement. is: 


NANELIST /grpname/ niolist €/srpname/ pniolistlee. 


where: acpname is a NAMELIST group name. Only one appearance of a 


group name in all of the NAMELIST statements of a 
progran unit Is permitted. A aroup name of END is 
prohibited. 


& is a WNANELIST input/output list of one or more 
ltamss each of which must be one of the following: 


nioli 


{tn 


(1) A variable name 
(2) An array name 
(3) A virtual (IDENTIFY) array name 


Fach name in the list niolist may be of any data typee 
nlolist may not contain the name of an assumed size arraye 
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A HAMELIST block Is one or more formatted records that consist of a 
sequence of characters in NAMELIST format (14e7)e Execution of an 
input/output deta transfer statement with NAMELIST formatting causes 
one NAMELIST block to be transferred. | : 


Execution of a WRITEs PRINTs or PUNCH statement with NANELIST 
formatting causes one NANELIST block to be written to a file. Data 
are trensferred from Taternal storage in the order specified by the 
input/output list associated with the NAMELIST group name that 
appa@ars in the output data transfer statement, 


Execution of a READ statement with NANELIST formatting causes one 
NAMELIST block to be read from a filee Thea NAMELIST group name in 
the block read must be tha same as the group name in the READ 
statement being executed. Each variable or array name in the block 
must appear in the input/output Jist associated with the group name. 
Item names in the block may occur in any order and = numbere. Note 
that an ten name may appear more than onse in a blocks possibly 
resulting in more than one definition of an entity. The btceck is 
transferred with NAMELIST editing (14-7) to internal storage in the 
order of item name appaarantese Values ara transmitted to the 
entities specified by the item names, The definition status. and 
value of each entity whose name does not appear in the NAMELIST 
block are unchanyed upon completion of the transferee Note that an 
antity named in the associated input/output list but not named In 
the NANELIST block retains its prior da?finition status and value. 


In inputs an error condition exists if the file is not positioned at 
the beginning of a NAMELIST block. If the current NAMELIST block Is 
not the one specified In the READ statements, the Input flie will be 
positioned forward to the NAMELIST block corresponding to the 
NANHELIST group name in the READ stateméente If the file is initially 
POSitioned preceding an endfile records an end—of-file condition 
gccurs and the actions specified in section 13,6 take place. If an 
endfile record is encountered while reading or .while positioning 
Forward searching for a NANELIST blocks an error condition exists 
and the actions specified In section 13.6 take place. 


The effect of executing a data transfer input/output statement with 
NANELIST formatting is othersise as described in Section 13.9, 


13.14 ENCODE_AND_DECODE STATEMENTS 


The SNCODE statamant is the extended internal file (13.2.5) deta 


transfer output statement. The DECODE statement is the extended 
internal file data transfer input statemente The forms of the 


statements are: 
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13214 ENC2IDe& AND DECQDE STATENENTS 
ENCODE (ks fy u) Ciolisty 
DECODE (ks fs» uw) Cialist] 
wheres’ | | | , 
k is an unsigned integer constant or int2ger veriable 


having a positives nonzero values The valua 
specifies the number of characters to be transferred 
to or from each record of the file identified by ue 


£ is a format specifjer (13.14) which is specified as 
one of the followina: im 
(1) The statement label of a FORMAT statement 
that appears in the same program unit as 
the formet identifier 
(2) A character array name or character array 
section (14.1.2) 
YJ is an internal file identifier (13.3.3) for an 


extended Internal file 


iolist is an input/output list (13.8.2) specifying the data 
to be transferred 


Execution of an ENCODE statement causes values to be.transferred to 
an extended internal file from the entities specified by the output 
jist jolist (if any) and the format identifier. f. The execution 
Sequences restrictions and error conditions are as described in 
Section 13.9 for a formatted WRITE statement that transfers data to 
an Internal file. 


Execution of a DECODE statement causes values to be transferred from 


in oaxtendad internal file to the entities specified by the input. 


jist Jolist (if any). Execution proceeds as described in Section 
13.9 for a formatted READ statement that transfers data from = an 
internal filee 


The length of each record of an extended internal file is 
established by the ENCODE statement that causes the file to exist by 
defining or redefining ite Note that the record ftength may be 


changed by subsequent redefinition. The record fenygth Is measured 
in characters and is the number of characters transferred. It is 
g*((k+7)/q9) characterss where ag is tne maximum number of characters 
that. can be represented by the processor in one numeric storage 
unit. 


Action is unspecified if the total length of al} records read or 
written exceeds the number of numeric storage units of the file 
(13.22563). 
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13.0 INPUT/OUTPUT STATEMENTS 
13.614 ENCODE AND DECODE STATEMENTS 
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Action is unspecified if any element of iolist is in the file or is 
Assocjated (18.1) sith the file, 


Jn outputs, «4 Format specification (14.1) that Is In the file or is 
associated (1341) with the file must not be specified. 


Mote that an axtendad internal file may be defined or redefined by 
means other then an ENCODE statement, such as a Boolean assignment 


statement. Such means must ensure that the record length is 
established as provided above and in Section 1342253, 


13.15 RUEFER_IM_AND_BUEEER_OUT STATEMELITS 
The BUFFER IN and BUFFER QUT statements initiate unformatted deta 
transfer.e Pragran execution may continue Immediately while the 
transfer proceeds. 
The forms of tha statements are: 
BUFFER IN (use) (slyso) 

BUFFER JWT (usa) (slssp) 

wheret | 


u is an external unit identifier (13.3.3) which is not an 
asterisk 


to 


is an Integer constant or an Integer varfable name. The 
value of o is not significant 

sl is a variable name or an array element name of type other 
than characters bit or half precisione S§1 Specifies the 
First entity of a storage sequence (15.1.1) to be 
transferred. 


sn is a variable name or an array alement name of type other 
than characters bit or half pracislon. sn specifies the 
lasty or possibly onlys entity of a storage sequence to 
ba transferred. 


Exacution of a BUFFER IN statement Initiates the transfer of values 
From one record of an unformatted external file to the storage 
SQquence SsleesesDe Ex2cution of a BUFFER QUT statement initiates the 
transfer of values from the storage sequence SleeeSn to one record 
of an unformatted axternal fila. The entities sl and sn must be the 
Same varfable or must be in the same arrays, common or equivalence 
classe Action is undefined if one of these relationships does not 
hoali. 


The @xecution seaquances restrictions and error conditions are as 
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described in Section 1349 for an input/output data transfer with an 
unformatted external files except 


(1) Immediately after the data transfer has been successfully 
initiateds, the processor resumes normal program executions 


(2) On inputs the storage sequence SleseeSh can be tonger than. 


the number of yalues in the record, The definition status 
or the remaining part of the sequence Is not changed. 


A BUFFER IN or BUFFER OUT data transfer is completed by referencing 
the processorssupplied Function UNIT {16e11.6)>» Action is 
unspecified «fF the program references or defines the storage 
sequence Slee-esn during an input data transfers or if the program 
redafines tha saquance or causas it to become undefined during § an 
quteput data transferee. : | 
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“14.0 FORMAT SPECIFICATION 


A Format used in conjunction with Formatted input/output statements 
provides information that diracts the. aditing between the Interna! 
representation and the character strings of a record or a sequence 
of records in the file. 


A format spacification provides explicit editing informatione An 
astertsk (*) as 2 format identifier In an input/output statement 
indicates list-directed formatting (14.6). 


14.1 EQRNAL SPECTEICATLION METHDDS 
Format specifications may be given: 
(1) In FORHAT statemants 


(2) As yajues of character arraysSs character variablesy or other 
character expressions . 


14ele1 EQRHATUSTATENENT. 
“The form of a FORMAT statement is? 
FORMAT fs 


where fs is a format specifications as described in 14¢2. The 
statement must be labaled. 


1461-2 CHARACTER FORMAT _SPECTEICATION. 


If the format identifier (1344) in a formatted input/output 
stytement is a character array names character variable names or 
other character expressions the JIeftmost character positions of the 
specified entity must be in a defined state with character data that 
constitut? a format specification when the statement Is executede 


A character format specification must be of the form described in 
14.2. Note that the form begins with a fteft parenthesis and ends 
with aorichk: parenthesis. Character data may follow the right 
parenthesis that ands the format specifications with no effect on 
the format specificatione Blank characters may precede the format 
specification. | 


If the format identifier ts a character array names the tength of 
the format specification may exceed the length of the first element 
of the array3 a character array format specification is considered 
to be a coneantenation of all the array elaments of tha array in the 
order glyen by array element ordering (5.344). Howevers if a 
character array element name is specified as a format identifiers 
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the length of the format specification must not exceed the Jength of 
the array element. 


If the format identifier (13.4) in a formatted tnput-output 
statement Is a noncharacter array namey the first m elements of the 
array must be in a defined state such that the juxtaposition of the 
yalues contained in the storegea sequence of the first m elements of 
the arrays. (for some positive integer indy with gach numeric storage 
unit in the storage sequence interpreted as a Boolean values 
constitutes a valid format specification when the statement is 
axyecutade 


A noncharacter array format specification must be of the form 
described in 14.2. Note that the form begins with a tfeft 


peranthesis and ands with aright parenthesis. There is no 
requirement on the information contained In the array following the 
right parenthesis that ends the format specification. Blank 


characters may precede the format specification. 
14.2 EQRU_OE_A-EDRUAT-SPECIEICATION — 

The form of a format specification is: 

| ( TElist] ) | | 


where flict is a list (2e11). The forms of the Flist Items are: 


[rj fs 
where: ed Is a repeatable edit descriptor (14.2.1) 
ped is a nonrepeatable edit dascriptor (14.2.1) 


fs Is a format specification with a non-empty list flist 


rm 


onzeros, unsigneds integer constant called a rpapeat 


The comma usad to separate list items in the fist flist may be 
omitted as follows: 


(1) Betwaon a P adit descriptor and an immediately Following Fs — 


Ey Dy or G adit descriptor (14.5.9) 
(2) Before or after a stash edit descriptor (14.5.4) 
(3) Bafora or aft er a colon edit descriptor (1425.5) 
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L4e2el EDIT DESCRIPTORS 


An adit deserlptor is elther a repeatable edit 
nonrepeatable edit descriptore 


The forms of a Lapsatablea sdit deseriptor are? 


Iw 
Tats 
Fided 
Ewed 
Dyed 
Gred 
Lu 
A 
Au 
Oy 
Oued 
74 
ZueD 
| Ba. 
Ru 


where: Is Fs Es. Ds» G» L» Ay Ts Zs Bes and R ind 
sditing 


Wand 2 are nonzeros unsigned, integer 
cannot exceed the vaiue be 


d and m are unsigned integer constants 
The forms of a nontepeatable 2dit descriptor are: 


thl h2 eee hn! 
OHHLH2 eae hn 
"hlh2 «2. hn" 
Ta 

TLs 

TRe 

ox 


La=3 
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descriptor or a 


icate the manner of 


constants vhere e 
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where: apostrophes H» quotes Ts TLys Ts Xo stashs colons Ss SP» SS» 
Py BN» and 8Z indicate the manner of editing 


h is one of the characters capable of representation by the 
processor . 

ral and ¢ are nonzeroys unsigneds int#ger constants 

k is an optionally signed Integer constant 


14.3 INTERACTION BSTNEEN_INPUT/OQUTPUT_LISI_AND EQBMAT 


The beginning of formatted data transfer using a format 
specification (1349.5e¢2e1) initiates format controle Each action of 
format control depends on information jointly provided by: 


(1) the. next edit descriptor . contained in the format 
Specifications and | 


(2) the next item In the input/output lists if one existse 


If an input/output list specifies at least one Tist items at least 
ons repeatable edit descripter must exist in the format 
spec|fication. Note that an empty format specification of the form 
{ ) may be used only if no list items are specified; in this cases 
one input record is skippad or ona output record containing no 
characters is written. Except for an edit deseristor preceded by a 
repeat specifications, cr eds and a format specification preceded by a 
repauat specifications rlf£Lisi)s a format specification is 
interpreted from tleft to right. A format specification or edit 
descriptor preceded by a repeat specification r is processed as a 
fist of c format specifications or edit descriptors tdentical to the 
format specification or edit descriptor without the repeat 
specificatione Nota that an omitted rapeat specification is treated 
the san2 as a repeat specification whose value is ones. 


To each repeatable edit descriptor interpreted in a format 
specifications there corresponds one Item specified by the 
input/output list (13.8.2)» except that a fist item of type complex 
requires the interpretation of two Fy» E» Ds or G edit descriptors. 
To each Py Xy Ts TLsy TRe Sv» SPs SSs He BN BZy slashs colons quotes 
or apostrophe edit descriptors, there Is no corresponding Iten 
specifjed by the input/output lists and format control communicates 
information directly with the record, 


Whaneyer format control ancounters a repeatable edit descriptor Ina 
format specifications it determines whether there is a corresponding 
item specified by the input/output list. If there is such an items 
it transmits appropriately edited information betsean the item and 
the records and then format control. proceeds. If there Js no 
corresponding itemy format control terminatese 
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If format contro) eancounters a colon edit descriptor in a Format 
specification and another list item is not specified» format control 
terminatese 


If format control encounters the rightmost parenthesis of a complete 
Format specification and another fist item is not specifiedsy format 
control terminates, Howeversy if another list item is specifieds the 
File is positioned at the baginning of the next record and format 
contro! then reverts to the beginning of the format specification 
terminated by the fast preceding right parenthesis. If there is no 
such preceding right parenthesiss format contro! reverts to the 
First left parenthesis of the format specification. If such 
reversion occurss the reused portion of the format specification 
must contain at  Jeast one repeatable edit descriptore If format 
control reverts to a parenthesis that is preceded by a repeat 
specifications the rapeat specificatjon is reused. Reversion of 
format controls of itselfs has no effect on the scale factor 
(14.5+7)s the S» SP» or SS edit descriptor sign contro! (146566)» or 
the BN or BZ edit descriptor blank contro! (14.5.8). 


14.4 POSITIONING BY_EO RUAT_CONTROL 


fter each Is Fs Es Ds Gs» Ls As Hs O» Bo Ze Re quotes or apostrophe 
edit descriptor Is processeds the file is positioned after the last 
character read or written in the current recorde 


After each Ts, TLls TR»s Xs» or stash edit descriptor Is processeds the 
file is positioned as described in 14.5.3 and 14e5e4» 


If format control reverts as described in 14359 the file is 
positioned in a manner identical to tha way it is positioned when a 
slash edit. descriptor is processed (14.5.4). 


During a read operations any unprocessed characters of the record 
are Skipped whenevar the next record is reade 


14.5 EDITING 


edit descriptors are used to specify thea form of a record and to 
direct the aditinyg between the characters in a record and internal 
representations of data. 


A field is a part of a record that is read on input or written = on 
outout when format control processes one I,y Fs» Es Ds» Gs La As He Oy» 
Ss Zs» Re quotes or apostrophe edit descriptore The fjeld width is 
the siz? in characters of the *leld. n «i 


The internal representation of a datum corresponds to the internal 
representation of a constant of the corresponding type (Section 4). 
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14,501 ABROSTROBUE_AND QUOTE_EDITING 


The apostrophe edit descriptor has the form of a character constant, 
It causés sharacters to ba written from the enctosed characters 
(Including blanks) of the edit descriptor Itself. An apostrophe 
edit descriptor must not be used on input. 


The width of the field is the numb2r of characters contained ins but 
not inctudings the delimiting apostrophes. Within the fields two 
Consecutive apostrophes with no intervening blanks are counted as a 
single apostrophe, 


The quota edit descriptor causes characters to be written from the 
enetosed characters (including blanks) of the edit descriptor 
itself. A quote edit descriptor must not be used on inpute 


The width of the field is the number of characters contained In» but 
not inctudings the delimiting gquotes. Within the fieldy two 
consecutive quotes with no intervening blanks are counted asa 
single quote. 


Nota that if ga gquots edit descrf|{[ptor occurs within a character 
constant and includes an apostrophes the apostrophe must be 
reéprasentad by two consecutive apostrophes 


145.2 H EDITING 


The pH edit descriptor causes character Information to be written 
Prom the n characters (including blenks) following the H of the gH 
edit panne in the format specification itself. An H edit 
descriptor must not be used on inpute 


Note that If an H edit descriotor occurs within a character constant 
and includes an apostrophes the apostrophe must be represented by 
two consecutive apostroohes which ara sounted as one cheracter In 
specifving oe 


14.563 BOSITIQUAL_SOITING. 


The Ts TL» TRs and X edit descriptors specify the position at which 
the next character will be transmitted to or from the record, 


Tha position specified by 2 T adit descriptor may be in either 
diraction from the current position. On Inouts this allows portions 
of a record to be processed more than oncey possibly with different 
aditinges 


Thea position specified by an X edit descriptor Js forward from the 
current positione Qn inputs a position beyond the last character of 
the record may be spasified if no characters are transmitted from 
such positionse 
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Jn outputy a Ts Ths TR»s or X adit descriptor does not by its self 
cause charactersy to be transmitted and therefore does not by itself 
affect the length of the record. If characters are transmitted to 
positions at or aftar the position specified by a Ty TLs TR» or X 
adit descriptors positions skloped and not previously filled. are 
filled with blanks. ‘The result is as if the entire record were 
intially filled with blankse i 


Jn outputs a character in the record may bé repleacede Howeverys, a Ty» 
TLye TRse or X edit descriptor never directly causes a character 
already placed in the record to be repfacede. Such edit descriptors. 
may result in positioning so that subsequent editing causes a 
replacement. 


14256301 Ts The and_ TR Editing. 


The Ta edit descriptor Indicates that the transmission of the next 
character to or from aerecord is to occur at the cth character 
posSitione . 


The TLe edjt descriptor indicates that the transmission of the next 
character to or from the record is to occur at the character 
position ¢ charactars backward Prom the current positione . Hoveavers 
if the current position is less than or equal to position cs the Ths 
edit descriptor indicates that the transmission of the next 
character to. or from the record is to occur at position ons of the 
current record. 


The TRoe edit descriptor indicates. that the transmission of the next 
character to or fron the reeord is tea occur at the character 
position c characters forward from the current positions 


140503062 Xueditinogs 


The aX edit descriptor indicates that the transmission of the next 
character to. or from a racord is to occur at the position go 
characters forward fron the current position. 


14.564 SLSSH_CDITING. 


The siash adit descriptor Indicates the end of data transfer on the 
current recorde . 


In input from a file connectad for sequential access» the remaining 
portion of tha current record is skipped and the file is positioned 
at the beginning of the next records This. record becomes the. 
current record. On output to ai file connected for sequential 
accesss a AoW record ts created and becomes the Jast and current 
record of the file, 


Note that a record that conteins no characters may ba written on 
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‘outputs If the file is an internal file or a file connected for 
direct accasss the eresord is fillad with blank cheractearse Nota 
also that an entire racord may be skiored on Input. 


For a File connected for direct accessys the. record number is 
increased by one and the file is positioned at the beginning of the 
record that has that record number. This record becomes the current 
record. 


14.5.5 COLOULEDITING. 


The colon adit descriptor terminates format control if there are no 
more items In the input/output list (14.3). The colton edit 
descriptor has no effect if there are mora itams in the input/output 
fist. 


14.5065 Qe SP2_AND_SS_E DITING. 


Thea Sy» SPs an: SS adit dascriptors may be used to control optional 
plus characters {In numeric output fields. At the beginning of 
execution of each formatted output statements the processor will not 
produce a plus in numeric output fields. If an SP edit descriptor 
is ancounterad In a format spacifiecationys the processor must produce 
a plus in any subsequent position that normally would lack the plus. 
If an SS edit descriptor is aAncountareds the processor must not 
produce apius in any subsequent pesition that normally contains an 
optional plus. If an S edit descriptor is encountereds the procesor 
reverts to not producing a plus in numeric output fields. 


The Ss» SPs and SS adit descriptors affect oniyvw Is Fs Es Dy and G 
aditing during the execution of an output statement. The S»s SPs and 
SS edit descriptors have no effect during the execution of an input 
Statemente 


14.5.7 P_EDITING. 


A scale factor is specified by a P eétjit dascriptors which is of the 
form: 


kP 


where kk ds an optionally signed integer constants called the scale 
factore i | 


14 ee lel acale_Eactors 


The valuz of the scale factor Is zero at the beginning of execution 
of each inout/output statement. It applies to ail subsequently 
interpreted Fs Es Dy and G edit descriptors until another scale 
factor Is encounterelds» and then that scale factor is established. 
Note that reversion of format control (14.3) does not affect the 
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established scale factor. 


The scale factor k affects the appropriate editing in the following 
manner: 


(1) On ineuts with Fs Es Ds and G editing (provided that no 
exponent exists in the field) and F output editings the scale 
factor effect is that the axvternally rapresented number 
equals the [nternally represented number multiplied by 10%*%*k. 


(2) On inputs with Fs Es Ds and G editings the scale factor has 
no affect if there is an exponant in the fleld. 


(3) On output, with E and D editinygs the .basic real constant 
(4.4.1) part of the quantity to be produced is multiplied by 
1O0%*k and tha @xponent is raducead by ke 


(4) On outputs with G editings the effect of the scale factor is 
suspended unless the magnitude of the datum to be-edited is 
outside tha range that permits the use of F editing.» If the 
use of E editing is requireds the scale factor has the same 
effect as with — output editing. 


14.569 BN_AND_BZ_EDITING. 


The 3N and BZ edit descriptors may be used to specify the 
interpretation of blankss other than IJIesding blankss in numeric 
input Pletds. At the beginning of execution of sech formetted Input 
statements such blank characters are interpreted as zeros or are 
ignored depending on the value of the BLANK= specifier {(13410.1) 
currently in effect for the unit. If a BN edit descriptor is 
ancountered in a format specifications ai} such blank characters in 
succeeding numeric input fields are ignored. The effect of ignoring 
hlanks is to treat the input Fleld es i? blanks had been removeds 
tha remaining portion of the Field right justifieds and the blanks 
reolaced as Jfeading blankse Howevers a field of all blanks has’ the 
value zero, If a BzZ edit descriptor is encountered in @ format 
specifications, ali! such htank characters in succeeding numerle [Input 
fields are treated as zeros. 


The BN. and BZ edit descriptors affect only Is Fs Es Ds Ge Ds and Z 


editing during execution of an input statement. They have no effect 
during execution of an output statement. 


14.5.9 NUNERTC_ EDITING 
The I, Fs sy Ds and G edit descriptors are used to specity 
input/output of integers real» double precisions half precisionys and 
complex data. The following general rules apply: 


{1) On inputs leading hianks are not significent. The 
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interpretetion of blanks, other than ere blankss is 

determined by a combination of any BLANK= specifier and any 
BN or 82 blank control that is currently in effect for the 
Unit (1425.3). Plus signs may he omitted, A field of all 
blanks is considered to be zere, 


{2) On input, with Fs Es Ds and G editings a decimal point 
appearing in the input field overrides the portion of an edit 
descriptor that specifles the decimal polnt tocattion. The 
input field may have more digits than the processor uses to 
approximate the value of the datume 


(3) On outpucs the representation of a positive or zero Interna} 
value in the Fjeld must not be prefixed with a plus unless a 
SP edit descriptor is in effect, The representation of a 
négative internal value in the field must be prefixed with a 
minus. Hewevers, the processor must not produce ai negative 
signed zero ina formatted output record. 


(4) Gn outputs the represtntation is right justified in the 
Field. If the number of characters produced by the editing 
is smaller than the field widths leading blanks will be 
inserted in the field. 


{5) On outputs iF the number cof charéecters produced exceeds the 
Field width or if an exponent exceeds its specified length 
using the EwedEe or Gyed&e edit descriptors, the processor 
wild fi)1 the entire field of width wv with asterltsks. 
Hovevers the processor must not produce asterisks if the 
fialad width is not oeaxceeded when optional charecters ere 

omitted. Note that when an SP edit descriptor is In effects 
a plus is not optional (14256). 


14.5.9.1 Inteser_tditing 


The Iw and Iyvem edit descriptors |fndicate that the field to be 
edited occupies y positionse The specified input/output list item 
must be of type Integer. On Inputy the specifled list Item will 
become defined with an integer datume On outputs, the specified Jist 
item must be defined with an integer datums 


| On inputs an Ivem elit descriptor is treeted identically to an Iw 


eadjt descriptor. 

In the input fields, the cheractar etriny must be in tha form of = § an 
opi:jonally signed integer constants except for the Interpretation of 
blanks (14.25.99 item (1)). 


The output field for the Iw edit descriptor consists of zero or more 


feading blanks followed by aeminus if the value of the internal 


datum is negatives or an optional plus otherwise,s followed by the 
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sagnitude of the internal value in the form of an unsigned integer 
constant without leading zeroSe Note that an integer constant 
always consists of at leaast one digits 


The output fleld for the Iyem edit descriptor is the same as for the 
Iw adit dascriptors axcept that the unsigned Integer constant 
consists of at least m digits andy if necessarys has leading zeroSe 
Thea value of m must not exceed the value of we If m is zero end the 
value of the internal datum is zeros the output field consists of 
only blank characterss regardiess of the sign control in effecte 


The Fs Es ODs and G edit descriptors specify the editing of reals 
Jouhla pracisions half eprecisions and complex data. An Jnput/output 
fist item corresponding to an Fs Es Ds or G edit descriptor must be 
real» double precisions half precisions or complex» An input fist 
itam will besome dafined with a datum shose type is thea same es that 
of the Jist item, An output Hist item must be defined with a datun 
whose type is the same as. that of the Jist item. . 


140.569.2061 E_EDITING 


The Fued adit. descriptor Indicates that the field occupies w 
positionss the fractional! part of which consists of d digits. 


The input field consists of an optional signs followed by a string 
of digits optionally containing a decimal pointe If the decimal 
point is omitteds the rightmost d digits of the strings with leading 
zeros assumed if necessaryy are interpreted as the fractional part 
of the value represented. The string of digits may contain more 
Jigits than a procassor uses to approximate the value of the 
constant. The basic form may be followed by an exponent of one of 
the following forms: 


(1) Signed integer constant 


(2) & followed by zero or more blanksy folloved by an optionsily 
signed inteyer constant 


ollowed by zero or more blankss followed by an optionally 


{3) D f 
signed integer constant 


(4) S followed by zero or more blanks, followed by an optionally 
signed integer constante 


An exponant containing a D or an S is processed identically to an 
exz9onent containing an E. 


The output field consists of blankss if necessarys followed by a 
minus if the internal value is negatiyes or an optional plus 
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otherwises followed by a string of digits that contsins a4 decimal 
point and represents the magnitude of the tnternal values as 
modified by the established scale factor and rounded to gd fractional 
digits. Leading ze@ros are not permitted axcapt for an optional zero 
immediately to the left of the decimal point if the magnitude of the 
value in the output field is less than ones The optional zero must 
appear if there would otherwise be no digits in the output field. 


140 5e9e2e2 FELAND_D_EDITING 

The Eneds Dweds and EnwedEe edit descriptors indicate that the 
axternal field occupies 4 positionss the fractional part of which 
consists of d digitss unless a scale factor greater than one jis in 
affacts, and the exponent part consists of 9 digitse The 2 has no. 
effect on inpute 


The form of the input field is the same as for F. aditing 
(1425290201). 


The form of the output field for a scale factor of Zero is: 
C+] [LO] . X1LX20e0xd exp 
where? + signifles a pfus or a minus (14-549) 


X1UX2e0e0exd are the gd most significant digits of the vatue of 
the datum after rounding 


exp is a decimal exponents of one of the following forms: 


fe re me ee nee oe ee st et at ooo Sf en te ee ee me cre ae ene oe ee + 
} Edit i Absolute Value | Form of H 
; Descriptor ${ of Exponent + Exponent H 
> EWed i raxerge9 + €+2122 H 
: $e rr rrr fe emt me me er ee co ee se ee ee ne ae om at ee + 
H + 99<}expi1¢999 } 2£2122Z3 H 
fp a eee a a ee a mr oe nee me eens we ae mene ee foe a + 
; En.edie : texpi¢(10%+e )-1 :. E+271Z220e0eezZe ' 
ofp ne en et eg tee ee ce oe fee me a a nn ee a cae ae en ce ne me 0 oe + 
i Dyed t traxar1s99 i Dtzlze H 
H fee me me ate mane ae ee eee nn oe ne ve ae Sf mace ee cece ae te a ea ee at ee + 
i i 99CE SARI S999 i £212223 i 
ooo fm ene fe eae ee ee + 
where Zz is a diygite The sign in the exponent is required. A plus 


slaqa must be used If the axponent value is zeroe The forms Ewed and ~ 
Dued must not be used if texp} > 999, 


The scale factor k sontrols the deacimel normalization (14.5.7). If 
—-d << k € Os the output field contains exactly ik! leading zeros and 
d— tk: significant digtts after the decimal potnt. If o0¢<¢ k < gd + 
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29 the output fleld contalns 2xactiy k significant diaits to the 
left of the decimal point and d - k + 1 significant digits to the 
right of the decimal pointe. Other values of & are not permitted. 


14.5-9.2.3 G_EDITING The Gyed and Guede&e edit descriptors indicate © 
that the axtarna!l field occupias w positionss the fractional part of 
which consists of d digits, unless a scale factor greater than one 
is In effects and the exponent part consists of ea diaits. . 


G input editing is the same as for F editing (14e5e9e2e1). 


The method of frapresentation in the output Fleld depends on the 
magnitude of the datum being edited. Let N be the magnitude of the 
internal datum. If N << 04.1 or N D> 10*¥*¥d»y Gwed output editing is the 
same as kPEued output editing and Gu.edEe output editing is the same 
as kPEw.d&e output editing, where k is the scale factor currently in 
affect, IF Wo ois greater than or egual to Orel and fs tess than 
LO*¥*d,y the scale factor has no effects and the value of N determines 
the editina as follows: 


Aes tee ae nt e bet atm eh A carer tas 
+ Magnitude of Datum 


f 


ae re ee a me ee a ee et ee wae a ee ne ce eee come en ae seme ee oss oe + 
Eauilvalent Conversion 
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O.1LSilel F(u-pieds n{tht) 
LEN<1O Fwep)e(d-2), o€'b?) 


Low (d=-2)<N<1LOe#(d-1)} Fven)els ath?) 


LO** { Jm1) <NCLO%% Flw-n)»O» pi'bt) 


+ 
4’ 
8 
4 
3 
2 
i] 
’ 
q @ 
.] 
1 » 
4 
b] 
4 
8 
‘ 
i] 
4 
8 
4 
4 


- oe we we ww sis ia is dg Res i ie + ~ 
fp Oe Oe Be we Oe we Oe ae om we -_ o« 


+ ‘ 
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I 
! 
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! 
I 
i 
i 
1 
i 
1 
i 
{ 
i 
| 
i 
! 
i 


where! b is a blank 
ia] is 4 for Gued and e+2 for GuedEe 


Note that the scale factor has no effect unless the magnitude of the 
datum to be edited is outside of the range that permits effective 
use of F editing. 


1405090204 CHUPLEX _COITING 


A complex datum consists cf a pair of separate real data; therefore, 
the editing is specified by two successively interpreted Fy» €». Ds or 
G edit dascriptors. The first of the edit deseriptors specifies the 
real part; the second specifies the Imaginary part. The two edit 
descriptors .may be different. Note that nonrepeatable edit 
descriptors may appear between the two successive Fs Es Ds or G adit 
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descriptorse 


14.25.10 L_eDITIHs 


The Ly edit descriptor indicates that the field occupies wW 
positions. The specified jinput/oytput ist item must be of type 
fogical. On jnputs the Jist item will become defined with a logical 
datum. On outputy the specified fist item must be defined with a 
logical datun, 


The input field consists of optional blankss optionally followed by 
a decimal points followed by a T for true or F for false. The T or 
F may be followed by additional charactars in the field. Note that 
the tflogtcal constants .TRUE,. and «FALSE. are acceptable Input 
Forms. 


The output field consists of wel blanks followed by a.T or Fs as the 
value of the internal datum Is true or falses resnectivelys 


14.25.11 A_LEDITING 


The ALw] adit descriptor may be used vith an input/output list item 
of type character (14.5.11le1)» and the Aw edit descriptor may be 
used with an input/outout list item of any noncharacter type except 
bit (14e5e1lle2)- . 


14.5.11.-1 A_Editingo of Character Data 


If a field width w is specified with the <A edit descriptors the 
Field consists of yw characters. If a field width w is not specified 
with the A edit descriptors the number of characters In the fleld Is 
the length of the character input/output Jist iteme 


Let len be the length of the input/output Fist item. If the 
specified field width wo for A Input Is greater than or equal to Lens 
the rightmost fen characters will be taken from the input field. If 
the specified fleld wldth is less than Lens the w characters will 
appear leftejustified with Jep-w trailing blanks in the internal 
representation. 


If the specified field width w for A output is greater than lens the 
output field will consist of u-len blanks followed by the len 
characters from the internal representatione If the specified field 
yidth g« is tass than or equal to lens che output field will consist 
of the leftmost uw characters from the interna] representation. 


14e5e11-2 ALEsitinsa_of Yoncharacter_Daka 
When used with an input/output fist ttem of noncharacter typey the 
Aw adit dasecriptor indicates cheracter code convyarsion (Appendix A) 
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of yo charactarsy with left justification and trailing blank file 
The field width specifier w must be a positive nonzero integer for 
this usage. In the followings g is the maximum number cf characters 
that can be stored in the datum at one times and h is the number of 
bits in a single character storage unite 


fn inputs If vw is fess than or equal to as the next w characters 
From the record are converted to wkb bits of character codes and are 
suffixed with (a-w) character code blanks. The result Is 
transmitted to the noncharacter datum corresponding to the next 
input/output dist iteme If x is greatar than 2, (yr-a) characters 
From the input record are skipped; the next a characters are 
converted and transmitted to the datum. 


On outputs J]? wits tess than or equal to as the leftmost (most 
significant) wtb bits of the tist item datum are converted and 
transmitted toa the output record. If ww Is greater than as u-a 
leading bianks are transmitteds followed by g characters converted 
nan the datume 


14.5412 PROCESSOR=DEPENDENT_EDITING 


Thea Ry DO and Z edit das erlotors are used» and the A edJt descriptor 
may be useds to specify processor-dependent editing for the physical 
contents of numeric storage unitse The editing consists of direct 
octals, hexadecimal or character code convarsion betreen internal 
storage and character strings of a racord.e Conversion oroceeds on a 
hit-by-bit basis; no numeric or ftogical significance is attached to 
the datae Any data type except types bit and character may he 
adited with the R edit descriptor. Any data types, except bits, may 
be edited with the As Os and Z edit descriptors. 


The number of bits corresponding to an externs! character varies 
with tha edit dascriptofre 


The Ry edit descriptor indicates character code conversion (Appendix 
A) of vw characterssy with right Justification and feading zero bit 
Fill. In the followings a Its the maximum number of characters that 
can ba stored in tha datum at one® times, and b is the number of bits 
In a single character storage unit. 


Jn inputs if w is tess than or equal to gs (amw)*bh lesding zero fill 
blts are transmitted to the leftmost (most stgnificant) bit 
positions of the list item datums followed by the next w characters 
of the input recor:] converted to character code. If yy is areater 
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than as (u-s) input characters are skipped? the next ss cheracters 
are converted to character code and transmitted to the datum. 


In outputs if uw is tass than or equal to as the rightmost (least 
significant) w*b bits of the list item storage unit are extracted 
ands beginnina with the tTleftmost extracted bit, converted to x 
characters and transmitted to the output record. If wy is greater 
than as wrs leading blank characters are transmittads followed by g 
characters convertad from the storage unit. 


14 * 5 ® 12 e 2 Quediziog 


The Ow and Oem edit descriptors indicate octal conversion of w 
characters, 8 Is slagnifleant only on output. Each character 
corresponds to 3 physical bits. The octal digits and bit values 


a ae Gwe OND SD OED SEE aS Gawe eam oD + 


foe + 
: Octal Digit { Bit Value} 
cfm ene nee a are me a ee a eo ene of oe ree ne en ee a ee + 
i i H 
: 0 H 000 : 
i 1 4 001 H 
H 2 H 010 H 
; 3 O11 i 
H 4 H 100 i 
i 5 H 101 H 
H 6 : 110 H 
: 7 i 111 H 
i i : 
$e ee ee fe ees ee + 


Nn inputs» the input field consists of zaro0 or more leading blanks 
Followed by a striny of octal digits. Optionally the string may 
contain embedded blanks; each blank is significant and is equivalent 
to an octal digit zero, The string may contain a maximum of Qg 
characters including embedded blanks» but excluding leading blanks. 
o = (b+2)/3 where b is the number of bits in the fist item datume 
If o* 3 is greater than hb than the tleftmost (9*3—-b) bits 
corresponding to the input field must be Zeros. For a string of og 
characterss (omn)*3-2 leading zero fill bits are transmitted to the 
leftmost (most significant) bit posttions of the list item storage 
units -followed by the n characters of the input.record converted to 
n*3 bitSe 


If the input field contains no characters except the character 
blanks the fjeld is intarprated es equivalant to zero (0). 
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In outputs if 4 is tess than or equal to 4/39 the rightmost 4*3 bits 
of the list item storage unit are converted to octal digit 
characters and transmitted to the output record. If ww is greater 
Shan os tieg tleading blank characters are transmitteds followed by o 
octal digits converted from the storage unite If wis equal to as 
all the bits eof the Jist item datum are converted to octal digit 
characters and transmitted. 


If p is specified on outputs the value of m must not exceed thea 
value of yw and the following additional editing applies: 


A maximum of wem leading octal zero characters are replaced with 
blank characterss proceeding from Jeft to right. A minimum of 
octal digit characters ara not raplacad, 


If the number of octal digit characters produced exceeds the field 
width ws the entire field Is filled with asterisks. 


The Za and Zu.eg edit descriptors indicate hexadecimal conversion of 
we characterse m is significant only on output. Zach character 
corresponds to 4 physical bits. Tha hexadecimal digits and bit 
values are: 


Bit Value { 


SAD BEE? GE CEN WED EES DD Ht OA EEN ae 


; :lexadecimal Digit 
fp roe eee ee wee mnen enon ue wo ene sae ae me SO me ae ne em mie eee 


a uae we we we SB ee ase ewe woe we ees wee Se ee ee 2S wet 
oe ee ee ee 
oe a ) 
aH 
ore 
ot 
he et OO ee Oe et ee OO et me et ee Oe me ee 


ae fet ee Cane Gem cee ED ED OED ED nD Od VED ee whe saw ew cove ewe fe mere ee ese wens ene ae ¢um enet UE wED woe 


In inputs, the input field consists of zero or more Jeading blanks 
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followed by a string of hexadecimal digits, Optionally the string 
may. contain embadded blanks} each blank is significant and is 
aquivalent to an hexadecimal digit zero. The string may contain a 
maximum of Zz characters including embedded blankss but excluding 
leading blanks. 2 = (ht3)/4 phere b is the number of bits in the 
list item datum. If 2%*4 is greater than b then the leftmost (z%*4-b) 


nléts corresponding to tha input field must be zeroe For a string of 


QO characterss (27-9)*4 leading zero fill bits era trensmitted to the 
leftmost (most significant) bit positions of the tist item datums 
followed by the no characters of thea input record converted to n*4 
bitse : ; ; 


If tha jnput fleld contains no characters except the character 
hianks the field Is interpreted ss equivalent to zero (0). 


Qn outputs, if wis less than or equal to b/4s the rightmost w*3 bits 
of tha tist item storaye unit are converted to hexadecimal digit 
characters and transmitted to the output record. If wis greater 
than 2» wnmz Jsading Blank characters are transmitteds followed by Zz 
hexadecinal dijits converted from the storage unit. If w is equal 
to zs all the bits of the list item storage unit .are converted to 
hexadecinal digit characters and transmitted. 


if gm is specified on outputs the value of m must not exceed the. 


yelue of wu and the following additional editing applies: 


A maximum of wen leQ2ding hexadecimal zero cherecters are 
replaced with blank characterss proceeding from Jeft to right. 
A minimum of m hexadecimal digit characters are not replaced. 


If che number of hexadecimal digit characters produced exceeds the 
Fleld width we the entire field is filled with asterisks. 


14.25.13 B_EDITINS 


The Bw edit descriptor formats bft data during input/output 
operations. 


On Input, the valua in the input field js converted to type bit and 
is assigned to the Input list item. One bit is input. The input 
list item must be of type bit. 


The data that eppears in a B input fiecid must be In the proper 
Format. The B f{nput field must contain a 0 or 1 in the rightmost 
column; all other columns must be blank. 


Qn outputs the yalue of the output list item is converted to a 


string of cheracters. These characters are placed in the output 
field. OQne bit is outpute The output Jist item must be of type 
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The B output fTiatd contains 2 0 or al if the value of the output 
list Jten Is B"o" or B"l"s respectively. Alt athar columns are 
blank. 


14.6 LISTSDLESCTED FORMATTING 


The characters In one or more tlist-djrected pecords constitute = a 


Seguence of values and value separators. The end of a record has 


the sams affect as a blank charecters unless it is within a 
character constant. Ans sequance of two or more consecutive blanks 
is treated as a single blanks unless it is within .a character 
constant, 


Sach value is. either a constants a null values or of one of the 
Farms: 
ic. 


i 


oc 


where £ is an unsigneds nonzeros integer constant. The rc¥¢ form is 


aquivalent to £ successiye appearances of the constant ¢c» and the r¥ 
Form is equivalent to cr successive null values, Neither of these 


forms may contain embedded blanks» except where permitted within the. 


constant c. 
A value separatar is one of the following: 


(1) A comma optionally preceded by one or more contiguous blanks 
and optionally followed oy one or more contiguous blanks 


(2) A stash optionally preceded by one cr more contiguous blJanks 
and optionally followed by one or more contigyous blanks 


(3) Gne or mora contiguous blanks betvean two constants or. 


Following the last constant 
14.601 LIST-DIRECTED_ INPUT 


Input forms acceptabia to format specifications for «4 glven type are 
acveetable for list-directed formattings except as noted belowe The 
form of the input value must be acceptable for the type of the input 
list item. Blanks are never used as zeross and ambaddad blanks are 
not parmitted In constants», except within character constants and 
complex constants as specified below. Hote that the end of a record 
has the effect of a blanks, except when it appears within a character 
constante <A Booléan constant may be used as an input form only if 
the corresponding Input list Jtem is of type Boolean. : 


When the corresponding input list item is of type real» double 
precisions or half precisiony the input form is that of a numerltc 
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input field. A nugacic ipoevut field is a field suitable for F 
aditing (14.5.9.2) which is assumed to have no fractional digits 
unless a decimal point appears within the fields 


When the corresponding list item Is of type complexs the Input form 
consists of a left parenthesis followed by an ordered pair of 
“numeric input fields separated by a commas and followed by a-eright 
paranthesis. The first numeric input Field is the real part of the 
complex constant and the second is the imaginary parte Each of the 
numeric input fields may be preceded or followed by blanks. The end 
of a record may occur between the ré@al part and the comma or betueen 
the comma and the imaginary parte 


When the corresponding Jist ttem is of type bitsy the input form is 
the same as a B input fleld. 


Whe an the corresponding input list Iten Is of type Booleans the input 
form is one of the following: 


(1) an octal constant (4.%els 2)s 

(2) a hexadecima} constant (4.9.1.3)s 

(3) a Hollerith constant of the form "£" (4.9.1.1)>5 
(4) an integer Input flelds or 

(5) a numeric input field. 


When the corresponding Jist item is of type loalcals the Input form 
must mot tinelude either slashes. or commas among the optional 
characters permitted for L editing (14.5410). 


When tha corresponding tJlist iftem is of type cheracters the Input 
Form consists of a nanempty string of characters enclosed in 
apostrophes. f£ach apostrophe within a character constant must be 
represented by teo consecutive apostrophes without an intervening 
blank or end of racord. Character canstants may be continued from 
the end of one record to the heginning of the next recorde The- end 
of the record does not caus? a blank or any other character to 
heacoma part of the constant. The constant may be continued on as 
many records as needed. The characters blanks commas and slash may 
appear in character constants. 


Let Lan. be the length of the fist Items» and tet » he the Jength of 


the character constant. If jen is tess than or equal to ws the 
fefivost Lan characters of the constant are transmitted to the fist 
iteme If len is greater than uw» the constant is transmitted to the 


leftmost wy characters of the fist ttem and the remeining lLen-w 
characters of the vist item are filled with blanks. Note that the 
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effect Is as though the constant were assigned to te: list item in a 
character assignment statement (10.4). 


A null valua is specifled by having no characters batween successive 
yalue se@eparatorss no characters preceding the first value separator. 
in the first record read by each execution of a liste-directed jinput - 
statements or thea c* forme A null yatue has no effect on the 
definition status of the corresponding input list item. If the 
input list item is defineds it retains its previous value; if it is 
aundafineds it remains undefined. A null values may not be usad as 
either the real or imaginary part of a complex constants but a 
single null value may represent an entire complex constant. Note 
that the end of a record following any other separators with or 
sithout separating blanks» does not specify a null value. 


A stash encountered as a value separator during execution of a 
list-directed input statement scaus2s termination of execution of 
that input statement after the assignment of the previous value, If 
there ‘are additional items in the Input lists, the effect is as if 
null values had been supplied for theme 


Nota that all blanks in @ liste-directed input record are considered 
toa be part of some value separator except for the following: 


(1) Blanks embedded in a character constant 


(2) Embedded blanks surrounding the real or imaginary part of a 
complex constant 


{3) Leading blanks in the first record read by eech execution of 
alist-directed input statements unless Immediately Follored 
by a slash or comma 


14-6462 LISTADIRECTED_ OuTeul 

The form af the values produced fs the same as that required for 
inputy except as noted otherwise. With the exception of character 
constants: the values are separated by one of the following: 


(1) One or more blanks 


(2) A comma optionally preceded by one or more blanks and 
optionally followed by one or more blanks 


The processor may begin few records as necessary, buty except for 
complex constants and character constantsy the end. of a record must 
not occur #ithin a. constant and blanks must not appear within a 
constant. . 


Bit output constants are produced with the effect of aB edit 
dascriptor. 
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Boolean output constants are produced in the form Z"Z2CzZleee"s wheres 
Z is a hexadacimal digit. Leading zeros are suppressed, 


Logical output constants are T for the value true and F for the 
value Ta[se,s 


Integer output constants are produced with the effect of an Iw edit 
descriptors for some reasonadic yalue of ye The value chosen for y 
nust be large enough to hold all of the significant digits of the 
integer as well as the sign if it is negative, 


Reals, double precisions and half precision constants are produced 
with the effect of ether an F edit descriptor or an E edit 
descriptors depending on the magnitude x of the value and a range 
LOF¥d1L ¢ x < Lo¥*d2s where dl and d2 are -6 and +9, respactivelye 
If the magnitude x is within this range, the constant is produced 
using OPFit. d35 otherwises 1PEnedEe is usede Reasonable 
Pprocessor—dapendent values of ws ds and e@ are used for each of the 
cases involved. 


Complex constants ara enclosed in parentheses, with a comma 
separating the rea} and imaginary parts. The end of a record may 
occur between the comma and the imaginary part only if the entire 
constent is as long ass or fonger thans an entire record. The onty 
anbedded blanks peraitted within «= complex constant ara between the 
comma and the end of a record and one blank at the beginning of the 
next record, 


Character constants produced are not delimlted by apostrophess are 
not preceded or followed by a value separator; have each internal 
apostrophe represented externally by one apostrophes and have a 
blank character inserted by the processor for carriage control at 
the beginning of anv racord that begins with the continuation of a 
character constant from the preceding recorde 


If two or more successive values in an output record preduced havea 
idantical values» the processor has the option of producing. a 
repeated constant of the form ge instead of the sequence of 
identical valueése 


Slashess as value Separatorss and null vajues are not produced by 
list-directed formattinge 


cach output record begins with a blank character to provide carriage 
control when the record is printed. 
14.7 NAMELIST_ FORMATTING 


The form of a NANELIST block Is one of the followin3: 
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Soroname nanvallsnamvall.e.f,1$LENDI 
faroname namvaLlsnamvatles.l>1&LENDI 
Sarpname padvallsnamvalje..Ty J&CENDI 
&gcpnane nadvallsnamvallessl9I8 TEND] 
wharat Ibanagve is the group name of the block 
nauval is one of the forms: 
vname = 5 
ananel(s)I=Cr*Igls lee] oless 
vnagelLiti2z) = 
aname(s)(iltia) = c 
where? yoame is a variabje name 
G is a constant 
aname |s an array name 
Ss tS an array subscript in which each 


subscr{inpt expression Is an integer constant. 
The number of subscript expressions in 5 


Be 


must be equal to the number of dimensions in 
the array declarator for the array name. 


c is an unsigneds nonzeros integer constant 
il and L2 ara integer constants 


{i1:i2) designates a character substring of 
A vpame or 2 apame of type cheracter 


The optional form r¥c is equivalent to £ successive 
appearances of the constant ce . 


A WAMELIST block consists of one or more formatted frecordse The 
initial record of the block may contain only Sarpnames &Grenames or 
one of these followed by one or more occurrences of pamval formse 
The initial. and subsequent records. of a NAKELIST block may end with 
a comma that occurs after a constant c or a comma that occurs after 
the real part of a complex constant that is continued on the next 
record. The initial or subsequent records of a NAMELIST block may 
end with a constant c provided that the record immediately precedes 


a rocsord containing onty 2%» SENDs & or SEND. The finel record of a 
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HANELIST block must end with %» SEND, & or SEND. Note that the 
Final record may be the initial recerds . For example, 


&GROUP V=3.7s &END 


In each record of a WNAMELIST blocks column one is reseryed for 
sarriage controle Un inputs the character in column one Is Ignored. 
On outputs a carriage contro! character is placed in column one of 
each record. A NANELIST block is written in columns two through the 
and of gach input record. 


The case of alphabetic letters in grPnames vnames anames SEND» and 
G&END is not sianificent in identifying the entity. 


A blank must not occur within the strings: 


{1) Sgrpnane 

(2) €arenaue 

(3) voame 

(4) anagel(s)] 

(5) vnamelil:i2) 
(6) ganane(s) (11:12) 
(7) 3END 

(8) &END 


Forms (1) and (2) must be followed by an end of record or one or 
more blanks before forms (2) through (8) may appeare Forms (7) and 
(53) must he s@paratad from the other forms by a comma or one or more 
blanks or by the end of a record. 


1467.1 NAMELIST INPUT 


The group name of the NAMELIST block being transmitted must appear 
in the READ statement being executede tach variahle name and array 
name in the block must appear in the NAMNELIST group referred to by 
the READ statament.e 


Fach constant ¢c must agree with the type of the corresponding list 
itam as follows: 


(1) A fogticals, characters bits or complex constant must be of 
the same type as the corresponding input fist. iteme . A 
character constant is truncated from the right or extendad 
to the right with blank characterss If necessarys to yield a 

‘character constant of the same length as the corresponding 
character variables array elements or substring. 


(2) An integers reals half precisions er double precision 
constant may be used for an Integers, real», half precisions 
or double precision input fist item, The constant is 
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converted to the type of the list item during transmissions 
For conversion to real» half precisions or double precisions 
an integer constant has an Implied decimal point to the 
right of the rlahtmost digit. 


‘The number of constants specified for a list item must not exceed 
the size of the list Iteme 


The form anange(s)=€r*eJelsler*Iag]... causes the first constant to be 
assigned to agname (s). Each subsequent constant is assigned to the 
array element with a subscript value (Table 1) one greater than the 
previous element assigned toe The size of agname must not be 
exceedtde . 


Tha forms of a logjcal constant having the value true are: 


t 
ate 
a TRUE. 


The forms of a logical constant having the value false are: 


F 
oFe 
«FALSE. 


A character constant must have the same form as if it appeared in a 
statement 9 F thea executable programs ie@ey the delimiting 
apostrophes must b2 presente. If a character constant occuples more 
than one records, each continuation of the character constant must 
extend to the end of each record preceding a continuation record. A 
character constant continued across a record begins [In column two of 
the continyation record. 


The forms of integer, reals double precisions half precistony and 
complex constents are as described for list directed input (14.6.1) 
axcept that embedded blanks are allowed. 


A Boolean constant must be an octal constant (4e9ele2)s a 
hexadecimal constant (4¢9.21-3)» or a Hollerith constant of the Form. 
wet (4,9.1lel1)>» 


The character blank is significant only In a character constants or 
Bool@an constent of the form “F", The BLANK= specifier has no 
effect on NAMELIST editing. A Gc form .must contain one or more 
nonblank characters and be a valid constant or an error condition 
exdistse Note that aca of type character will always contein at 
least two nonbiank characters due to the apostrophes surrounding the 
oharacter constante 
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14.7.2 NAUELTST_OUT&UT 


Jn outputs, each NAMELIST block is terminated with the characters 
REND. ; 


The processor begins a new record for each block transferred. 
Column one of the first record of each biock contains aie carriage 
control character followed by an & followed by the group namee 


The processor begins a nén record for the block terminator G&END. 
Column one of the block terminator record contains a carriage 
control followed immediately by GEND, 


Tha processor may bagin new records as nécessarys buts except for 
complex constants and character constants, the end of a record must 
not occur within .a constant... A new record is begun with the 
carriage control character blank in column ones and the leftmost 
character of the constant In column tro. 


Logical constants are produced as T for the value true and F for the 
value fals2. - 


Character constants are produced with deifmiting apostrophes. 


Boolean constants are produced in the form Z"zLzleee"s where Zz is a 
hexadecimal digit. Landing zeros are suppressed, 


Integer constants are produced with the effect of an Iw edit 
Jescriptors for some reasonable value of we The velue chosen for y 
must be Jarge enough to hold all of the significant digits of the 
integer as well as the sian if it is negatives 


Except for the vyalue Zeros reals double precisions and half 
precision constants are produced with the effect of an €E edit 
descriptor with seale factor of zero. Wo digits area produced before 


tha deefmal potnt,. The number of dislts produced to the right of 
the decimal point is the minimum number necessary to accomodate 
representation of the internal datume Trailing zeros are 


eliminated. Tha string 0.0 is produced for the yalue Zeroe 

Conpiex constants are produced as a pair of real constants enclosed 
in parentheses and with a comma separating the real and imaginary 
partse Each real constant is producad as dascrihed in the preceding 
Pparagraphe 


Bit constants are produced with the effect of a Ru edit descriptor. 
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15.0 HAIN PROGRAM 


152.0 MAIN PROGRAN 


A main program is a program unit that does not have a FUNCTION, 
SUBROUTINEs or BLOCK DATA statarent as its First statement. It may 
have a PROGRAM statement as its first statement. 


There must ba exactly one main program in an executable programe 
execution of an executable program begins wlth the execution of the 
First executable statement of the main programe: 


15.1 PROGRAU_LSTATESENT 
The form af a PROGRAM statement fs? 
| PROGRAM pam 


where pom is the symbolic nama of the main oprogram in which the 
PROGRAM statement appearse 


A PROGRAM stetement s Mot required to appear In an executable 
program. If it does appeary it must be the first statement of the 
main programe If omitteds the symbolic name pam of the main program 
is the six character name START#. = 


The symbolic name pom is global (19%e1.-1) to the executable program 
and must nov he the same as. the name of an external procedure, block 
data subprograms or common black In the seme executable programe 
The name pam must not be the same as any local name in the main 
PrOUr ame 


15.2 MAIN PROGRAM_RESTRICTIONS 

The PRIGRAM statement may app2ar only as the first statement of a 
main programe A main program may contain any other statement except 
4 BLOCK DATAs FUNCTIONs SUBROUTINE» or ENTRY statement. The 
appearance of a SAVE statement in a main program has no effecte 


A main projram may not bea referenced from a subprogram or from 
itself. 
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15e0 FUNCTIONS AND SUBROUTINES 


1641 CATESORLES_OF_ FUNCTIONS AND SUBROUTINES 
16.1.1 PROCEDURES. 


Functions and subroutines are procedurese There are four categories 
oF procedures? 


(1) Intrinsic functions 
(2) seacsnent functions 
(3) External functions 

(4) Subroutines 


Intrinsic functions, statement functions» and external functions are 
referred to collectively as functions. . 


External functions and subroutines are referred to collectively as 
avyiarnal opesaduras. | 


1601-2 EXTERNAL_EUNCTIONS. 
There are tuo categories of external Eungtions: 
(1) External functions specified in function subprograms 


(2) External functions specifled by means other than FORTRAN 
Stee ane 


1601.3 SUBRQUTINES. 
There are tyoa catagories of subrautines 

(1) Subroutines specified In subroutine subprograms 

(2) Subroutines specified by means other than FORTRAN subprograms 
LOele4 DUMMY PROCEDURE. 


A dummy procedures Is. a dumay argument that is identified as a 
procedure (19,2.11). 


16.2 BEEEREUCIUG A_EUNC TION 


A function is referenced in an expression and supplies a value. to 
the exprassion. The value supplied is the value of the functione 
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An intrinsic function may be referenced in the main program or in 
any procedur? subprogram of an axecutable2e program. 


A statement: function may be referenced only in the program unit in 
which the statement function statement appearse 


An axternal function specifled by a function subprogram may be 
referenced within any other procedure subprogram or the main program 


of the executable programe A subproyram must not reference itsalfs: 


aféner directly or Indirectly. 


An external function specified by means other than a subprogram may 
be referenced within any procedure subprogram or the main program of 
the executable programe 


If a character function is referenced in a program units the 
function length specified in the program unit must be an extended 


ate ry 


integer constant exprassione 
l6.2e1 EQRM_OEF_A_LEUNCTION REESRENCE. 


A function referance is used to reference an Intrinsic functions 
statement functions or external function. 


The form of a function reference is! 
fun ( Ca Tesaleeel] ) 
where: fun is the symbolic name of a function or a dummy procedure 


an actual araqument 


ef} 


3 i 


The type of the result of a statement function or external function 
reference is tha same as the type of the function name, The type is 
specified in the sume manner as For varjlables and arrays (4e142). 
The type of the resuit of an intrinsic function is specified in 
Table 5 (16.19). 


(16.262 EXECUTION OF ALEUNCTIOU_REESRINCE. 


A function reference may appear only as a primary tn an arithmeticys 
fojical,s or charactar axpressfione Exacution of a function reference 
In an expression causes the eyaluation of the function identified by 


fun. 
Return of sontrol from a referenced Ffunetion completes execution of 


the function reference. The value of the function is available to 
the referencing expressione 
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16.4 snatuateurivereats 


Intrinsic functions are supptied by the processor and have a special 
meaninge The specific names that identify the intrinsic functionsy 
their generic names» functton dafinitionss type of arguments, and 
type of results appear In Table 5. | | 


An IMPLICIT statement does not change the type of an intrinsic 
Functions 


n. intrinsic function is elamantal If the resuit can be determined 
on ans: element by element basis when applied to an array valued 
argument. An Intrinsic function is arrayvevalued if it. appears in 
the array-valued section of Table 5. An array-valued function is 
generally one which cannot be evaluated independently for each array 
elamant. The value of an arreyn~vailued function need not have the 
same snape es any of ts arguments. 


None of the array<-valued intrinsic functions may be passed as an 
argument to an axternal procedure. 


16.3.1 SPECIFIC NAUES_AND_ GENERIC NAMES 


Generic names simplify the referencing of intrinsic functionss 
hecquse the same function name msy be used with mora then one tyne 
of argument, OGniy a specific intrinsic function name may be used as 
an actual argument when the argument is an intrinsic functione 


Tf a generis neme is used to reference an intrinsic functions the 
type of the result (except for intrinsic functions performing type 
conversions nearest inteyers, and absolute value with a complex 
arjument) is che same as the tvoe of the argument. If there is only 
one argument and it Is of type Booleans, It is converted to type 
integer if an aryjument of type integer is allowed; otherwise it Is 
converted to type reale The type of the result is then the type to 
which the Boolean argunant was converted. 


For those intrinsic functions that have more than one arguments all 
arguments must be of the same type with tha exception that a Boolean 
argument is allowad in the same Intrinsic function reference as an 
arithmetic argument. In this case each Boolean argument is 
converted to the type of the arithmetic argument or argumentse If 
ali the argumants are of type Booleans @ach of them is converted to 
tyne integer. 


If the specific name or generic name of an intrinsic function 
appears in the dummy argument fist of a function or subroutine in a 
subprosr anys that symbolic nane does not tIdentify an Intrinsic 
Function in the program unite The data type identified with - the 
symbolic name is specified in the same manner as for variabl#s and 
arrays (4.1.2). . 
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A name In an INTRINSIC statement must be the specific neme or 
yeneric name of an Intrinsic function. 


1603-2 REFERENCING _ AN_INTRINSTC EUNCTION. 


An intrinsis funestion Is referenced by using Its reference as a 
primary din an expresstons For each intrinsic function described in 
Table 5, execution of an intrinsic function reference causes the. 
ageotions specified in Table 5y and the result depends on the values 
of the actusl aryuments. The resulting value Is available to the 
expression that contains the function referencee 


The actual arguments that constitute the argument list must agree In 
order and number with the specification in Table 5. They must also 
agree in type except that an actual argument of type Boolean may 
appear whenever Table 5 permits an argument of arithmetic type. An 
Accual argunant may ba any expression of an allowad typee An. actual 
argument in oan [Intrinsic functlon raference may be any expression 
except a character expression involving concatenation of an operand 
whose {fénoth specification is an asterisk in parentheses unless tha 
operand is the symbolic neme of a constant. 


A specific name of an intrinsic function that appears in an 
INTRINSIC statement may be us@d as an actual araument in an external 
procedure reference; howevers the names of Intrinsic functions for 
type conversions lexical relationship,y and for choosing the largest 
or smallest value must not be used as actual arguments, Note that 
such an appearence does not cause the intrinsic function to be 
classiflad as an external function (19.2.10). 


166363 INTRINSIC FUNCTION ARGUHENTS_AND_RESULTS 


If a generic nome or aeispecific name ts used to raference an 
elemental intrinsic functions the shape of the result jis the same as 
the shape of the argument with the greatest number of dimensions. 
If the aryuments ara all scalars the result Is scalar. If a generic 
nane or a specific name is used to reference an array=-valued 
intrinsic functions the shape of the result is specified by. Table 5e 


For those aiemental Intrinsic functions that have more than one 
arguments afl! arguments must be conformable. 


The actual arguments that constitute the argument list must agree in 


ordarys numbeary and type nith the specification in Table 5. For 
e®lemantal intrinsic functions» the actual arguments may be any . 
expression. including an array expression, For... array-valued . 


intrinsic Punetionss a scalar actuel argument may net be used where 
Table 5 Indicates an array is expected. 
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16.3.4 INTRINSIC EUNCTION RESTRICTIONS. 
Arguments for which the result is not mathe matically defined = or 


eaxeseds the numerjc range of the Processor cause the result of the 
function to become undefined. 


= 


Restrictions on the ranga of arguments and results for. IntrinslIc 
Functions are described Jn 16.101. 


16.3.5 ARRAY REDUCTION _ INTRINSIC_EURCTIONS 
Lede De 1 A ALLS. ad Ustilon_ ta_a_ Scalar 
An array reduction function can ba used to reduce en array to a 


sealar value of the same type ar to reduce an array atong a specific 
dimensiones 


ata) 
name (Ay LDIM= Vd) 
nameldAs CDIMFlds CAASK= Ip) 
name lAsHASK=n) 


where: 


A is an arrays. array sections, or array expression with po 
dimensions such that 1<d<£on 


gd is a scalar Integer value specifving the dimension along 
which the function is applied (1 € d € g) 


m is « typa fogical arrays array sectlonys array exoressions 
or scalar conformable to 4 


The function epplies to all elements of the errays array sections or 
array expression Ae An example would be SUM(C) which would return 
thea arithmecic sum of all the slemants of the array Ce 

16636502 Array: adustlon_ Along_a_Dimension 


Lf tha shap2 of erray A is (AL ep d2sceesdlimlL) sdisd( itl) x .es2dn) and 


an array reduction function ts. applied along dimension ty the. 


resultant array has shape 
AKdlyad2sr.cesdCin-lL) asdf itl) seeesdn) 


The vaiue of. element (slys2sevesslirli)ags( itl) »yeeeesn) of the result 
array is given by 


nanaslAlslss2.s soos SC im1L) oF a SC T+1L) ae we SN) CehASKem]) 
If dis omitteds the entire array is reduced to a scalare 
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A masked reduction applies to all of the elements of A (selectad by 
d) «where corresponding values of elements in mp are true. A and 
must be conformablee For examples SUM(CsMASK=C .GT. 0.0) would form 
the arithmetic sun of all 2iements of C whose values are greater 
than zero. Each masked reduction function has a default value that 
is returned if all of the elements of m are falsee 


“If 9 is omitteds the array is reduced as if gb was an array 
conformable with A and all of its elements were true.. 


16.4 STATZUSUTEURCTION 
A statement function is a procedure specified by a single statement 
that is similar in form to an arithmetics Booleans bits, logicals or 
character assignment statement. A statement function statement must 
appear only after the specification statements and before the first 
executable statement of the program unit in which it is referenced 
C2.5)-6 . 


A statement function statement is classified as a nonexecutable 
statement: if is not a part of the normal execution sequences 


1664+1 EQRM_OE_A_STAISUSUI_EUNCT LON STATEUELI. 
The form of a statement function statement is: 


fun € Cd Csdl..2] ) = g 


where: Fun is the symbolic name of the statement function 

d is a statement function dummy argument 

e is an expression 
The relationship betwoen fun and @ must conform to the assignment 
rules in 1LOely 1062s and 1024. Note that the type of the expression 
may ba differant from the type of the statament function namee 
Each d ts a variable name called a statement function dummy 


3ojuuante The statemant function dummy argument list serves only to 
indicate ordery numbers and type of arguments for the statement 


Functtione The variable names that appear as dummy arguments of a. 


statamant function have a scone of that statement (191). A given 
s¥ubotic name may appear only once in any statement function dummy 
argument list. The symbolic name of a statement function dummy 
argument omax be used to identify ather dummy arguments of the same 
tyne in different statement function stataments. The neme may also 
be used to identify a variable of the same type appearing elsewhere 
in the program units including its éppearence as a dummy argument in 
a FUNCTION, SUBROUTINEs or ENTRY statement. The name must not be 
used to [Identify any other entity in the program unit except a 
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16.0 FUNCTIONS AND SUBROUTINES 
L6e4e1 FORM OF A STATEMENT FUNCTION STATEMENT. 


common block. 
each primary of the expression e must be one of the Following: 
(1) A constant 
(2) Tha Svmpolic name of a constant 
{3) A variable reference 
(4) An array eiement reference 
(5) An intrinsic function reference 


(6) A rafarence to a statement function for which the statement 
Function statement appears [In the same program unit 


(7) An external function reference 
(8) A dummy procedure? reference 


(9) An expression enclosed in parentheses that meets all of the 
reguirements specified for the expression e , 


(10) A substring reference 


Gach variable reference may he either a reference to ae dummy 
Argument of the statement function or a raference to a variable that 
apogears within the sama pregran unit as the statement function 
statement. A substring reference may not have the form peer e Ce2]) 
where v is a statemant function dummy argument. 

If a ststemant function dummy argument name is the same as the name 
of another entitys the appearance of that name in the expression of 
a skatement function statement is a reference to the stetement 
TuNction dummy argument. A dummy argument that appeers Ina 
FUNCTION or SUBROUTINE statement may be referenced In the expression 
of a statement function statement within the subprograme A dummy 
argument that appaars in an ENTRY statement thet precedes a 
statenent function statement may be referenced in the expression of 
the statement function statement within the subprograms 


160402 REEERUCING A_STATENMENT EUNCTION. 


A statement function is referenced by using its function reference 
as a primary. in an axpressione . 


Execution of a statement function reference results In? 


(1) evaluation of actual arguments that are expressionss 
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{2) conversions if necessary of the values of the actual 


argumants to the typas of the corresponding dummy arguments 
according to the rules for assignments asseclation of 
resulting values with the corresponding dummy arguments, 


(3) evaluation of the exprassion as and 


(4) conversions if necessarys, of an arithmetic expression value 
to the type of the statement function according to the 
assignment rules In 10.1 of a changes If necessarys in the 
length of a character expression value according to the rules 
in 10.4 


Tha resulting value is avattabile to the expression that contains the. 
Function references 


The actual argumentss which constitute the argument lists must agree 
in order and number with the corresponding dummy arguments. An 
actual argunant in a statement functlon reference may be any 
expression except a character expression involving concatenation of 
an operand whose length specification is an asterisk in parentheses 
unieass the cparand is tha symbolic name of a constant. 


When a statement function reference jis executed, its actual 
arguments must be defined. 


16.4.3 STATZNENT_EUUCIION_RESTIRICIIONS. 


A statement function may be referenced only in the program unit that 
contains the statemant function statamant, 


The evaluation of the expression e (1664.1) must not cause the 
execution of a reference to fun (16.4.1). The symbolic name used to 
identify a statement function must not appear as a symbolic name In 
any specification statement except in a type—statement (to specify 
the tyve of the function) or as the name of a common block in the 
sane program unite 


An external function reference in the expression of a statement 
function statement must not cause a dummy argument of the statement 
funetion to hecome undefined or redefined, 


The symbolic name of a statement functjon is a local name (19612) 
and must not be the same as the name of any other entity in the 
program unit axcept the name of a common blocke 


The symbolic name of a statenant fFunctlon may not be an actual 
arguments It must not appear in an EXTERNAL statement, 


A statement function statament in a function subprogram must not 
contain a function reference to the name of the function subprogram 
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or an entry name in the function subprogram. 


The fength specification of a character statement function or 
statement function dummy argument of type character must be an 
axtended integer constant expression. 


16.5 EXTERNAL EUNCTIONS 


An axternal function is specified externally to the program unit 
that references jt» An externa! function is a procedure and may be 
specified in a function subprogram or by some other meanse 


16.5+1 EUUCTIOU. SUBPROGRAM_AND_EUNCTIOL STATEMENT 


A function subprogram specifies one or more external functions 
(16.7). <A funetion subprogram Is a program unft that has a FUNCTION 
statement as its first statement. The form of a function subprogram 
is as described in 2e4 and 345» except as noted in 1625.3 and 
LOeledte 


The form of a FUNCTION statement Is: 
Ctyp] FUNCTION fun ( Ed [sd].+-] ) 


wheres typ is one of INTEGERs REAL» DOUBLE PRECISION, HALF 
PRECISIONs COMPLEX» LOGICAL, BIT, BNOLEANs or CHARACTER 
[xlen] where len is the length specification of the 
resuit of the character function. Jean may have any of 
the forms allowed in a CHARACTER statement (6.422)-4 If a 


lanath is not specified. in. a CHARACTER FUNCTION | 


statements, the character function hes a length of one» 


fun is the symbolic name of the function subprogram in which 
tha FUNCTION statement appears. fun is an gextaroal 
function name. 


d is 2 variables names array names or dummy procedure names 
d is a dummy argument. 


Tha symbolic nama of a sealar-valued function subprogram or an 
associated antry name of the same type must appear as a variable in 
the function subprograme. During every execution of the external 
functions this variables unfess It has length zeros must hecoma 


defined ands. once defineds way be referenced or become redefined.. 


During every execution of a user array~-valued functions the array 
corresponding to funs unless it has size zeros, must become defined 
ands once detineds may ba referenced or become redefined. The value 
of this variable or array when a RETURN or END statement is executed 
in the subprogram is the value of the function. If this varieble is 
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a character variable with a length specification that is an asterisk 
in parenthesasy, it must not appear as an operand fer concatenation 
except In a character assignment statement (10.4). 


An external function in a function subprogram may define one or more 
of its dummy argumants ro return values in addition to the value of 
the function. 


16.5.2 REECRENCING AN_EXTERNAL_EUNCTION. 


An axternal function is referenced by using its reference as a 
orinary in an expression. 


L6.5e2e1 Execution_of_an_ External_Eunction_ References 
seats oF an external functton reference results in: 
(1) evaluation of actua! arguments that are expressions» 


(2) association .of actual arguments with the corresponding dumny 
argumentss and 


3) the actions specified by the referenced functione 


The type of the function name In the function reference must be the 
same as the type of the function name in the referenced functione 
The length of the character function in a character’ function 
reference must be the same as the length of the character function 
in the referanced function. 


When an external function reference is executedsy the function must 
be one of tha external functions in the executable programe 


16.5.202 BESS ine pupa Saat e beaten teat el eueetsans 


The actua! arguments in an external function reference must agree in 
order and number with the corresponding dunmy arguments In the 
referenced function. They must also agree in type except that an 
actual argument of type Boolean may have a corresponding dummy 
aryjyumeant of type integer or reals and an actual argument of type 
Integer er real mast have a corresponding dummy. argunent of type 
Booleane The use of a subroutine name as an actual argument is an 
exception to the rule requiring agreement of types because subroutine 
names do not baye A types 


An actual argument In an external function reference must be one of. 
the following? 


(1) An axprassion except ai character exoression Involving 
concatenation of an operand whose length specification is an 
asterisk in parentheses unless the operand is the symbolic 
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name of a constant 
(2) An array name | 
(3) .An intrinsic function name 
(4) An external procedure name 
(5) A dumay procedure name 
{6) An array expression 
(7) An array section name 


Nota that an actual argument in a function reference may be a dummy 
argument that appears in a dummy argument list within the subprogram 
containing the reference, 


16.563 EUNCTION SURPROGRAN RESTRICTIONS 


A FUNCTION statement must appear only as the first statement of a 
Function subprogr aie A function subprogram may contain any other 
statement except a BLOCK DATAs SUBROUTINEs or PROGRAM statement. 


The symbolic name of an external function is a global name (1961.1) 
and must not bé the same as any other globa} namey except a common 
block names ofr any locai names except a variable names In the 
Function subprogran. 


Within a function subprograms the symbolic name of 4a sSceler-valued 
function specified by a FUNCTION or ENTRY statement must not appear 
in any other nonexecutable statements, except a type=-statement. In 
an executable statements such a name may appear only as a variablee 
Thea symbolic name of a user arrayr-yalued function may appear in an 
array declarator In any nonexecutahble statenent thet eermits an 
array declaratore. The name may appear in a type statement as? 


{l) An array dectlarator provided it is the onty appearance as an 
array deciarator In this program units or 


(2) An array name where the array dimensions are specified in 
another statemente 


If the type of a Function is specified in a FUNCTION statementy the 
function name must not appear. in a type~statement. Note that a name 
nust not have its type explicitiy specified more than once In a 
program unit. 


If the name of a function subprogram is of type characters each 
entry nam@ in the function subprogran must be of typa character. If 
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the name of the function subprogram or any entry in the subprogram 
nas a tangth of (*) declareds all such entities must have a length 
of (*) declared; otherulses all such entities must hav2 ae tength 
specification of the same integer value. 


In a function subprograms the symbolic name of @ dummy argument Is 
local to the program unit and must not appear In en EQUIVALENCEs 
PARAMETERs SAVE,» INTRINSICs DATAs or COMMON statements except as a 
common block names 


_A character dummy argument whose length specification is an asterisk 
in earentheses must not anpear as an operand for SOnCatenaht Ons 
except in a character assignment statement (10.4). | 


A function specified in a subprogram may he rafarenced within any 
ather procedure subprogram or the majn program of the executable 
programe A Function subprogram must not reference itself, either 
‘irectly or indirectlye 3 | 


16.544 USER_ABRAYAVALUED FUNCTION DECLARATION 


An external array-valued function is an external function that 
returns an arrayevalued result. An externa! array-valued function 
is distinguished from a scalar function by an array declaration for 
the function name, 


16.56¢4e1 Shana etlal Usar_Array-valued_Eups don Result. 


The shape of a user array~valued function result is declared in the 
Function suoprogram by an array declaration For the function name. 
The actual shape returned bv aereference to the function is 
determined by evaluation of each of the dimension bound expressions 
at the time of the referance to the function. Values involved in 
the determination of the shape may hecome redefined during the 
execution of the function but this will not affect the shape. 


The shape and type of a user arrayw-valued function must be declared 
in a procadure information block In the program untt referencing the 
Funcvion and the shape and type must agree with the shape and type 
specified in the functione 


L6e5e4e2 USur_Arrav-Valued_Eunction Nane_ Usage 


The symbolic name of an array-valued function must be declared as an 
array name in the Tunction subprogran. Duriny every execution of 
the array-valued functiony this array must become. defined (but note 
that an array of size zero is always defined) and once defineds may 
be raferancad or become redafined. The value of this arrey when a 
RETURW or E/ID statement is executed in the subprogram Is -the value 
of the Function, 
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16.5.4.3 User _Array-Valued Function Sestrictions 
A-user array-valued function name may not be passed as an actual 


arjumante A user array-valued function must not contain an ENTRY 
statement... 


1666 SUBROUTINES . 
A subroutine is specified externally to the program unit that 
refera@nces ite A subroutine is 2 procedure and may be specified in 
A gubroutina subprogran or by some other means. 
16.6.1 SUBROUTILVE SUBPROGRAM_AND_ SUBROUTINE STATONENT. 
A subroutine subprogran specifles ona or more subroutines (16.7). A 
subroutine subprogram is a program unit that has a SUBROUTINE 
statement as its first statement. The form of a subroutine 
subprogram is as described In 264 and 3655 except as noted in 16-623 
and L6e.724- ; : 
Tha form of a SUBROUTINE statement its 
SUBROUTINE sub £C Cd Codleeel] 7] 
wheres sub is the symbolic name of the ‘subroutine subprogram in 
which the SUBROUTINE statement appearse sub is a 
subroutine name. 


qd is a variable names array names or dunmy proceduyuré names 
or is an asterisk (16.9-3.5).e dis a dummy argument. 


Note that if there are no dummy arguments, either of the forms sub 
or sub() may be used In the SUBROUTINE statement. <A subroutine that 
is specified by either form may be referenced by a CALL statement of 
the form CALL sayb or CALL sub(). 


One or more dummy arguments of a subroutine in a subprogram may 
become defined or radefined to return results. 


1666e2 SUBROUTINE REFERENCE. 
A subroutine is referenced by a CALL statenente 
LO6e6e201 Foro. of _a CALL Statement. 
The form of a CALL statement ist 
CALL sub EC Ca Ceonleee]d )] 
where: sub is the symbolic Name of a subroutine or dummy procedure 


CONTROL DATA PRIVATE 


83/06/30 


we _ . 7 16-14. 
Control Data Corporation Standard FORTRAN : 7 
83/06/30 
16290 FUNCTIONS AND SUBROUTINES 
16.662e¢1 Form of a CALL Statement. 


a. is an sevuNareuneKe 
16.6+2.2 Execution of a CALL Statement. 
Execution of a CALL statament results in 

(1) evaluation of actual arguments that are expressionsys 


(2) association of actual arguments with the corresponding dummy 
arguments, and | 


(3) the actions specified by the referenced subroutinee 


Return.of control from the referenced subroutine complat2s execution 
of the CALL stetemante 


A subroutine specified in a subprogram may be referenced within any 
other procedure subprogram or the main program of the executabla 
programe A Subproyjram must not reference itself» efther directly or 
Indjrectiy. . or . 


When a CALL statement is executeds the referenced subroutine must be 
ona of the subroutines specified In subroutine subprograms or by 
anther means in the executable program. 


16.6.2e¢3 Actual Arguments _for_a_Subroutinegs 


The actual arguments In a subroutine raference must agree !n order 
and number with the corresponding dummy arguments in the dummy 
aryument list of the raferencad subroutine. They must also agree in 
Sype except that an actual argument of type Boolean tay have a 
corresponding dummy argument of type tnteger or reals and an actual 
argument of type integer or real may have a corresponding dummy 
argument of type Boolean. The use of a Subroutine name or an 
alternate raturn specifier as an actual argument is an exception to 
the rule requiring agreement of typee 


An actual. argument in 2 subroutine raferance must be one of the 
Following: | 


(1) An expression except a character expression involving 
soncatenation of an operand whose length spacification is an 
asterisk in parentheses unless the operand is the symbolic 
name of a constant 

{2).An array name 


(3) An intrinsic function name 


{4) An external procedure name 
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(5) A dummy procedure name 


(6) An alternata cekturp seeciflers of the form *s»s where g is the 
statement label of an executable statement that appears in 
the same program unit as the CALL statement (16.8.3) 


(7) An array expression 
(8) An array section name 


Tote that. an actual argument in ea subroutine reference may be a4 
dunmy argument name that saopears In a dummy argument list within the 
subprogram containing the references An asterisk dummy argument 
must not be used as an actual argument in a subprogram referencee 


16.663 SUBROUTINE SUBPROGRAU RESTRICTIONS. 


A SUBROUTINE statement must appear only as the first statament of a 
subroutine subprogram.,. <A subroutine subprogram may contain any 
other statenant except a BLOCK DATAs FUNCTION, or PROGRAM statement. 


The symbolic name of a subroutine is a global name (19e1.-1) and must 
not be tha same as any other global names except a common block 
names or any focal name In the orogram unit 


In a subroutine subprograms the symbolic name of a dummy argument is 
local to thea progran unit and must not appear in ean EQUIVALENCE, 
PARAMETER» SAVEs INTRINSICs DATAs or CONHMNON statements except as a 
common block. name. 


A character dummy argument whose Jength specification is an asterisk 
in parenthesas must not appeer as an .onsrand for  csoncatenations 
except in a character assignment statement (10.4). 


16.7 ENTRY _STATERENT 


An ENTRY statement vermits a procedure reference to begin with a 
particular executable statement within the Function or subroutine 
subprogram in which the EMTRY statement appearse It may appear 
anywhera within a functton subproegram after the FUNCTION statement 
or within a subroutine subprogram after the SUBROUTINE statements 
except that an ENTRY statement must not appéar between a block MIF 
statement and its corresponding END IF statements between 2a block 
WHERE and its corresponding END WHEREs or between a DO statement and- 
the terminal statement of its DN—Iloop. 


Neptionallys a suhprogram may have one or more ENTRY statementse 


An ENTRY statement is classified as a nonexecutable statement. 
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16.7.1 FORM _OE_ AN_LENTRY_ STATEMENT. 

The form of an ENTRY statement is: 
ENTRY en CC Cd Cod].-0] J 

where: en is the symbolic name of an entry in e funetion or 
subroutine subproagram and is called an entry name. If 


the ENTRY statement appears in a subroutine subprograms 
ap is a subroutine name. If the ENTRY statement appears 


in a function subprograms en is an external function 
QANE ; 

d is avariable names array names or dummy procedure names. 
or is an asterisk. «dis a dummy argument. An asterisk 


is permitted in an ENTRY statement only in a subroutine 
subprogram, 


Note that if there are no dummy ergumentss either of the forms an or 
en() may be used in the ENTRY statement. A function that is. 
spasified by either form must ba raferencad by the form én) 
(16.241)>» A subroutine that is peel tice by either form may be 
referenced by a CALL statement of the form CALL en or CALL ent). 


The entry name en In ae funetlorn subprogram may eppear in a 
type-statement. 


16.762 REFERENCING AN_EXTERRAL_ PROCEDURE BY _AU_LEL IBY NAME 


An entry name in an ENTRY statement in a function subproogram 
identifies an external function within the executable program and 
may be referenced as an external function (16-522). An entry name 
in an ENTRY statement in a subroutine subprogram identifies a 
Subroutine within thea executable program and may ha raferenced as a 
subroutine (16.662). 


When an entry name en is used to reference a procedures execution of 
the procedure begins with the first executable statement that 
follows the ENTRY statemant whose entry name is ene 


an entry name is available for reference in any program unit of § an 
axeacutablea programy, except in the program unit that contains the 
eantry name in an ENTRY statement. 


The orders numbers types and names of the dummy arguments in an 
SNTRY statement. may ba diffarent from the ordéry numbers types and 
nanes of the dummy arguments in the FUNCTION statement or SUBROUTINE 
statement and other ENTRY statements In the same sybprogram. 
‘Nowever, each reference to a function or subroutine must use an 
actual aryunent list that egrees In orders, numbers and type with the 
dummy argument List in the corresponding FUNCTION, SUBROUTINE, or 


CONTROL DATA PRIVATE 


eee | 16-17 
Control Data Corporation Standard FORTRAN 
| 83/06/30 


AONE Ek OE ED LE ED AE OED ETD ATE OO ae TR cn GH UMD TREE WOOD TO REED ND 148) ED BONS ED EWE AD TD ASE OS AG SEE SD CUD HE WES ENE ONE BE SED AONE HSE MRE CHEE OF ED AE ED TURD EES SATE ee GON ENED EE ORD UA UR Ale Ane HD HE eee ED aU Ones GERD 


16.0 FUNCTIONS AND SUBROUTINES 
16.7.2 REFERZINCING AN EXTERNAL PROCEDURE BY AN ENTRY NAME 


PD ED AO EN EN BO BEND ES VERE END Ue HED FOE OOD fad WADE PERS OE POND TD HN OD HD OOD Ad MEN GATE OD WES BEE SOND CONT LED MS MEY AND OR ED STD RED URS GUNS SOD AON Dewy AER CO OOD ARTE WIE ED CEE US TUNE Give OOM He DD I EE Ge ae Ge ee ee 


ENTRY statemante The use of a subroutine name or an alternate 
return specifier as an actual argument is an exception to the rule 
reguiring agreement of type. 


1607-3 ENTRY_ASSOCIATION. 


Within a function subprograms al! variables whose names are also the 
names of antrigs are associated with each other and with the 
variables if anys whose name Js also the name of the function 
Subprogram (18.1.3). Therefores any such variable that becomes 
defined causes all associated variables of the same type to bacome 
defined and all associated varirhias of different type to become 
undefined. Such variablas are not required to be of the same _ type 
unless the type jis characters but the variable whose name is used to 
referance the function must be in a defined state when a RETURN or 
END statement is executed in tha subprogram.e. An associated varlable 
of a different type must not become defined during the execution of 
the function referencee 


16.7.4 ENERY_STATEAUNT RESTRICTIONS. 


Within ‘a subprograms an entry name must not appear both as an entry 
Name in an ENTRY statsment and as a dummy araument in a FUNCTION» 
SUBROUTINEs ar ENTRY statement and must not appear in an EXTERNAL 
statement. 


In a function subprograms 3 variable nama that is the same as an 
entry name must not appeer In any statement that precedes the 
appearance of the entry name in an ENTRY statements except in a 
type-statement. | 


If an entry name In a function subprogram ts of type cheractery each 
entry name and the name of the function subprogram must be of type 
charactere If the name of the function subprogram or any entry in 
tha subprogram has ga Jangth of (*) doclareds all such antities must 
have aodength of (*) declaread3 etherwises all such entities must 
have a length specification of the same integer value. 


In a subprograms a name that appears as a dumay argument in an ENTRY 
statemant must not appear In an executable statement preceding that 
ENTRY statement unless it also appears in a FUNCTIONs SUBROUTINES or 
ENTRY statement that precedes the exearcutable statement. 


In a subprograms a nama thet appears as a dummy argument in an ENTRY 
statemant must not apnear in the expression of a statement function 
statement unless the name is also a dummy aryument. of. the. statement 
Punctions appears in a FUNCTION or SUBROUTINE statements, or appears 
in an ENTRY statement that precedes the statement function 
statement. 


If a dummy argument appeers in an axecutablie ststements the 
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execution of the executable statement is permitted during the 
execution of a rafearence to the function or subroutine only if the 
dunmy argument appears in the dummy argument list of the procedure 
name referenced. Note that the association of dummy arguments with 
actual argumants is not retained hetyveen references to a function or 
subroauting. | 


An ENTRY statement must not appear in an array-valued function 
Subprograme 


(16-8 RETURN _STATENENT 


A RETURN statement in a function subprogram or subroutine subprogram 
causes return of control to the referencing program unit. Execution 
of a RETURN statement in a main program terminates the execution of 
the executable program, 


16.801 EQRM_OE_A_RETURN_ STATEMENT. 


The form of q RETURN statement in a Function subprogram or a main 
program is? . 


RETURN 
The form of a RETURN statement in a subroutine subprogram is: 
| RETURN [2] 


where e is a scalar arithmetic or Boolean expressione If ge is not 
of type integers the yalue of INT(s) Is used. 


16.962 EXSCUTION_ OF _A_RETURN_STATENENT. 


Exgcution af 3a RETURN statement terminates the reference of a 
function or subroutine subprogram. Such subprograms may contain 
more than one RETURN stetements hovievars a subprocram need not 
contain a RETURN statemante Execution of an END statement In a 
function or subroutine subprogram has the same effect as executing a 
RETURN statement in the subprogram.e 


In the execution of an executable programs a function or subroutine 
subprogram must not be referenced a second time without the prior 
axecution of a RETURN or END statement in that proceduree 


Exaocution of a RETURN statement in 3 =functton subprogram causes 
return of control to the currently referencing program unite. The 
value of the function (16,5) must be defined and is available to the 
referencing pregram unite 


Execution of a RETURN statement in a subroutine subprogram causes 
return of control to the currently referencing program unite Return 
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of control to the Pe ReRe IRS program unt completes execution of 
the CALL Statements 


Eyscution of a RETURN statement tarminates the association between 
the dummy arguments of the external procedure in the subprogram and. 
the current actual argumentse | 


16.9.3 ALTERUAIS RC 1URi. 


If a is not specified in a RETURN statementy or if the value of e is 
lass than one or greaater than the number of asterisks in the | 
SUBROUTINE or subroutine ENTRY statement that specifies the. 
currently referenced names control] returns to the CALL statement 
that initiated the subprogram reference and this completes the 
axenutton of the CALL statement. 


If 1 ¢.¢ ¢ n» where pn is the number of asterisks in the SUBROUTINE 


or subroutine ENTRY statement that specifjles. the currently 
referenced names the value of e identifies the eth asterisk in the 
dummy . argument list. Control is returned to the statement. 


identified by tne slternate return specifier In the CALL stetement 
that is associated with the eth asterisk in the dummy argument list 
of the currantly raferanced nama. This completes the execution of 
the CALL statement. 


16.3.4 DEEINTITION STATUS. 
execution of a RETURN statement (or END statement) within § a 
Subprogram causes all entities within the subprogram to become 
undefined, except for the following: 

(1) Entities specified by SAVE statements 


{2) Entities in blank common 


(3) Initially defined entities that have neither been redefined 
7 nor bacome undefined 3 


(4) Entities in a named common block that appears in_ the 
Subprogram and appears in at least one other program unit 
that is raferencinas either directly or Indirectly» the 
subprogram 


Note that if a named common block appears in the main programs the 


entities in the namad common block do not become undefilned at the 
axecution of any RETURN statement in the executable program. a 


1669 ARGUNENTS AND COMMON. BLOCKS 


Arguments and conmon blocks provide means of communication between 
the referencing program unit and the referenced procedure, 
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Data may be communicated to a statement function or =intrinsic 
function by an-argument list. Data may be communicated to and. from 
an 2xternal procedura hy an argument tist or common blockse 
Procedure nainges may be communicated to an externa! procedure only by 
an argument Jiste 

ne ergument list of a procedure. An 


A dummy argument appears in ¢ 
n the argument tlist of a procedure 


yotual arguaant appears | 
reference. 


The number of actual arguments must he the same as the number of 
dummy arguments in the procedure refarenced. , 


16.9.1 QUAMY_ ARGUMENTS. 


Statement functionss funetion subprogramss and subroutine 
subprograms use dummy arguments to indicate the types of actual 
arguments and whether each argument is a singie valuey array of 
valuess procadures or statement tlabel. Note thet a statement 
function dumay argument may be only a vartable. 


Each dummy argument is classified as a variables arrays dummy 
procedures or astsriske Dummy argument names may appear wherever an 
actual name of the same class (Section 19) and type may appears 
except where they are explicitly prohibited. 


Dummy argument names must. not S8ppaar in ENUIVALENCE>s DATAs 
PARAMETER» SAVEs INTRIKNSICs or COMMON statements, except as common 
block namese A dummy argument name must not be the same as_ the 
procedure name appearing in a FUNCTICNs SUBROUTIVEs ENTRY» or 
statement Function statement in the sama program unite 


A dummy argument must not appear as the host array in an IDENTIFY 
statemente 


16.92 ACIUAL ARGUMENTS 


Actual arguments specify the entities that are, to be associated with 
the dummy aryuments for a particular refersnce of a subroutine = or 
Funct lone An actual argument must not be the neme of a statement 
function in the program unit containing the reference. Actual 
arguments may be constantsys symbolic names of constants» function 
refearancess scalar or array expressions involving operatorss 
vector-valued section selectors» and scalar or array expressions 
enclosed in parentheses if and only if the associated dummy argument 
is not SePined during execution of tha referenced external 
ppocadures 


The type of each actual argument must agree with the type of its 
associated dummy arguments axcept when the actual argument is a 
subroutine name (16.92.34) or an alternate return specifler 
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16.9.3 ASSOCIATION_OF_ DUMMY AND ACTUAL_ARGUMENTS. 

At the exacution of a function or subroutine references an 


assocftatlon Is established between the corresponding dummy and 
actual argumentse The first dummy argument becomes associated with 
the first actual argument, the secend dummy argument becomas 
associated with the secand actual arguments etc. 


All appearances within a function or subroutine subprogram of a 
dummy argument whosa name appears in the dummy argument list of the 
procedure nane referenced become assoctated with thea actual argument 
when a reference to the function or subroutine is executed. 


A valid association occurs only if the type of the actual ergument 
is the same as the type of the corresponding dummy argument. A 
subroutine name has no type and must be associated with a dummy 
procedure name. An alternate return specifier has no type and must 
be associated with an asterisk. 


If an actual argument is an expressions it is evaluated just before 
the association of arguments takes place. 


If an actual argument is an array elemant names» its subscript Is 
evaluated just beforsa the associatian of arguments takes place. 
Note that the subscript value remains constant as long as that 
association of arguments persists, even if the subscript contains 
Variables that ara redefined during tha association. 


If an actual argument is a character substring names» its substring 
expressions ara evaluated just before the association of arguments 
sakes place, Note that the value of each of the substring 
expressions remains constant as long as that association of 
arguments persistss even if the substring expression contains 
variables that are radefined during the assaciatione 


If an. actual argument is an external procedure names the procedure 
must be available at the time a reference to it is executed. 


A dummy argument is undefined if it is not currently associated with 
an actual argument. An oedjustahle array Is undefined if the dummy 
argument array is not currently associated with an actual argument 
array or if any variable appesring in the adjustab!e array 
declarator [Is not currently assoctated with an actua}] argument = and 
is not in a common blocke 


Argument association may be carried throywoh more than one level of 
procedure refarence. A valid association exists at the last tlevel 
onlw if a valid association exists at all intermediate levelse 
Argument association within a program unit terminates at the 
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executjon of a RETURN or END statement in the program unite Note 
that. there is no retention of argument association between one 
raferance of a subdprogram and the next reference of tha subprogreme 


If an elenental Intrinsic function Is referenced with an array names 
array section names or array expression as an actual arguments the 
Function will be implicitly raferenced pn times where n is the size 


of the actual argument array names array section names or array. 


expression. Each implicit reference will associate one of the array 
aleaments of tha arravs array sactions or array expression actual 
argument with the corresponding varlab!e dummy argument. Every 
array element of the actual argument will be associated during the o 
implicit referenceSe The order in which the associations are made 
is not specified. If there Is more than one arrays array sections 
Or array expression as an actual argumenty each implicit reference 
will associate the same relative array element of each arrays array 
sections or array axpressione For axamplesr in the reference to the 
alamental intrinsic function ATAN2 


INTEGER AC10)» B(=524) 
B = ATAN2 € Ay B) 


one of the Impilcit references te ATAN2 will. assoclate All) and 
B{-5) with the corresponding dummy argumentss another implicit 
reference will associate A(6) and B(0) with the corresponding dummy 
arygumentss atce 


16.9.3.1 Length of Character Dummvy_and_ Actual Arguments 


If a dummy argument is of type characters the associated actual 
aryumant must be of type character and the tftength of the dummy 


aryjyument must be fess than or equal to the length of the actual 


arjumante If the tangth Lan of a dummy argument of type cheracter 
is less than the fength of an associated actual argument, the 


leftmost len characters of the actual argument are associated with. 


the dummy aryument. 


If a .dummy argument of type character is an array names the 
restriction on Ilenyth is for tha entire array and not for each array 
alement. The length of an array elenent in the dummy argument array 
may be different from the length of an array element in an 
associated actual argument arrays array elements or array element 
substrings but the dummy argument array must not extend beyond the 
end of the essociatad actual argument array. 


If an actual . argument is a.character substrings the tength of the 
actual aryuaant is thea length cf the substrings If an actual 
argument is the concatenation of tuo or more opernandss Its length Is 
the sum of the lengths of the operands. 
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16.9+3.2 Variables_as_Dumamy_ Arguments. 


A dummy argument that is 90 variable may be associated with an actual 
qr jgument that is a varlables array elements substrings or 
expressione 


‘If the actual argument is a variable names array element names or 
substring names the associated dummy argument may be defined or 


redefined within the subprocgram. If the actual argument is a 
constants a. symbolic name of a constants, a function reference, an 
axpression involving operatorss or an expresstlon enclosed in 


parenthesess the associated dummy argument must not be redefined 
within tha subprograme . 


1669.3.3 Arrazs_28_Dumuy Arcauments 


Within a program units the array declarator gQiven for an array 
provides all array declarator information needed for the array in an 
execution of the program unit. The number and size of dimensions in 
an actual argument array dectarator may be different from the number 
and size of the dimensions In an associated dummy ergumeant array 
dectarator onls Jf the actual argument is an array name or array 
element names 


The number and size of dimensions in an actual erqument array 
section or array expression Involving operators or parentheses must 
agree with the number and size of the dimensions in an associated 


dummy argument array declaratore 


Parmittad associations between actual and dummy arguments are shown 
by the following tables 
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Jp an ae ae ee ee a ne ae pone me man ae me oe sf ree eee a ae eee fo ee te cern ee fae ee fee ee + 
! ACTUAL $: ARRAY: ARRAY +. ARRAY + ASSUMED : ASSUMED H 
H ARGUMENT? NAME ¢ SECTIONS ¢: ELEMENT § SIZE + SHAPE H 
: i } EXPRESSION} + ARRAY NAME: ARRAY NAME $ 
i i q } H H H 
toes i H ae : H H 
+ DUMMY - H H : ; H i 
$ ARGUMENT = i. i H 3 H { 
fee ee fee ooo foe eee ee ooo fee eee em + 
+ CONSTANT ¢ YES ¢ YES + YES 1 YES ; YES H 
$ ARRAY i : Same Shapet 3 : Same Shape } 
fee ee +-----— $e ee ee pom Fe $——-- - + 
H ADJUSTABL e: YES ¢ YE ; YES ; Yes : YES 1 
+ ARRAY 1 +; Same Shep} i i; Seme Shape } 
ofp meee ra oe ene ce ae ne nme pm re fa ee eee we a eee ee fp ee nt ne me fee em fee + 
+ ASSUMED : YES 3: NO 1 YES + YES ; NO ' 
| SIZE H i : H i : 
} ARRAY : H H H H : 
Fp eee oe cae nt pee ee em $$ $$ ---— - $e fo ooo + 
+ ASSUMED +; YES i YES + NO + NO > YES : 
+ SHAPE > Same + Same Shape H + Same Shape { 
} ARRAY i Shape} H H i i 
-———- $—————— pan $—--—--- spa ae a ee me free eee eee + 
+ VARTIABL: : NO + NO i YES > HO + NO ‘ 
fon re mee ee mate ee en ee femme ae we a fee ee ee ee femme me mee fp ae ane oe see ee so ee ae fee eee eee ee + 


A "YES" entre indicates that the association is permitted. If "Same 
Shape" js also specifieds then the actual! and dummy argument must 
have the same shape, 


If the actual argument is a noncharacter array names the size of the 
dumny argument array must not exceed the size of the actual argument 
arrays and aach actual argument array element hecomas associated 
with the dummy argument array element that has the same subscript 
value as the actual argument array element. Note that association 
by array @lements axists for character arrays if there is egreement 
in jangth between the actual argument and the dummy argument array 
elements; if the tengths do not agrees the dummy and actual argument 
array elements do not consist of the same charactersys but an 
association still exists. 


Tf the actual argument fs a noncharacter array element names the 
size of the dummy argument array must not exceed the size of the 
Aetual argument array plus one minus the subscript value of the 
Array 2ienent.e When an actual ergument -JIs. a noncharacter array 
element name with a subscript value of as, the dummy argument array 
aflement with a subscript value of ds becomes essociated with the 
actual argument array element that has a subscript value of 
as + ds - 1 (Table ly 5.523). 
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If the actual sargumant is 2 charecterr array names character array 
alement naney or character array element substring name and begins 
at character storage unit acu of an arrayy character storage unit 
dei of an asseciated dummy argument array becomes associated with 
character storage unit acu + dcu -—- 1 of the actual argument arraye. 


(16,9.304 Prossduras_as Dungy Araumaniss 


A dummy argunent that is a dummy procedure may be associated only 
with an actual argument that ts an intrinsic functions extarnal 
Functions sudroutines or another dummy procedure. 


If a dummy argument is used as if it were an external functions the 
associated actual argument must be an intrinsic functions extarnal 
Functions or dumny procedure. A dumms argument that becomes 
associated with an intrinsic function never has any automatic typing 
propertyys even if the dummy argument name appears in Table 5. 
(16.10), Therefores tha type of the dummy argument must garee with 
the type of the result of stl snecifle actual argumants that become 
associated with the dummy argument. If a dummy argument name is 
used as if it were an axternal function and that name also eppears 
in Table 5» the Intrinsic functlon corresponding ts the dummy 
argument name is not available for referencing within the 
Subprograme . 


A dummy aryument that is used es a procedure name in a function. 
refarance and is assocjated with an intrinsic function must have 
arguments that agree in orders numbers and type with those specified 
in Table 5 for thea intrinsic function. 


Tf a duamy argument appears In a type-statement and an EXTERNAL 
statements the actual argument must be the name of an intrinsic 
functions external functions or dummy procedure, 


If the dummy argument is referenced as a subroutines the actual 
argument must be the name of a subroutine or dummy procedure and 
must not sppzaar in 3a typa-statement or he referenced as a function. 


Nota that it may nat be possible to determine In a given program 
unit whether a dummy procedure jis associated with a function or a 
subroutinee If «a procedur? name appeers only in a dummy argument 
list, an EXTERNAL Statemants and an gctual argument Jists it Is not 
possible to determine whether the symbolic name becomes associated 
with a function or subroutine by examination of the subprogram 
a1ONSe 


16.9.3.5 Asterisks as _ Dygmy_ Araumentse 
A dummy argument that is an asterisk may appear only in the dummy 
arjumant list of a SUBROUTINE statement or an ENTRY statement in a 


subroutine subprogram. 
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A dummy argument that Is an asterisk may be 2essociated only with an 
actual argument that is an alternate return specifier in the CALL 
Statement that identifies the current raferencing name. If 2 dummy 
argument dis an asterlsks, the corresvonding actual argument must be 
an alternate return specifier, 


16.9.366 Restrictions_on Association of _ Entities 


If a subprogram reference causes a dummy argument in the referenced 
subprogram to become associated with another dummy argument in the 
referenced subprograms neither dummy argument may become . defined 
during executjon of that subprogram. For examples if a subroutine 
is headed by 


SUBROUTINE XYZ (AsB) 
and is referenced by . 

CALL XYZ (CC) 
then the dunmy arguments A and B each become associeted with the 
same actual argument C and therefore with each othere Neither A nor 
B may become defined during this execution of subroutine XYZ or by. 


any proceduras refarencesd by XYZ. 


If a subprogram reference causes a dummy argument to become 


associated with an entity in a common block in the referenced 
Subprogram or ina subprogram referenced by the referenced 
subprograns neither the dummy argument nor the entity in the common 
block may become defined within the subprogram or within a 


subprogram referenced by the referenced subprograme For examples If 
4 subroutine contains the statements: 


SUBROUTINE XYZ (A) 
COMMON Cc 


and is referenced by a program untt that contains the statements: 


COMMON B 
CALL XYZ (B) 


then the Jummy argument <A becomes associated with the actual 
argument Bs which is associated with Cys which is in a common blocke 
Neither A nor C may become defined during execution of the 
subroutines XYZ or by any procedures refarenced by XYZe 


16, a COMMON BLOCKS. 
A common block provides a m@ans of ‘communication between external 


procedures or between a main orogram and an external procedures The 
variables and arrays in a common block may be defined and referenced 
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in all suboragrams that contetn a declaration of that common block. 
Because association is by storage rather than by names the names of 
the variables and arrays may be different’ in’ the different 
“subprograms. A raferensce to a datum in a common block is proper if 
the datum is In a defined state of the same type as the type of the 
name used to reference the datume Howevery an integer variable that 
has been assigned a statament ftabel must not be referenced in any 
program unit other than the one In which It was assigned (10.3). 


No difference in data type is permitted between the defined state 
and the type of tha raferences except that either part of a compliex 
datum may hea referencad also as a real datum, ' 


In a subprogram that has declared a named common blocks the entities 
in the block remain defined after the e@xecution of a RETURN or END 
statement if a comnon block of the same name has bean declared in 
any program unit that is currently referencing the subprograms 
either directly or indirectlye Otherwisey such entities become 
undefined at the exacution of a RETURN or END statements except for 
those that are specified by SAVE statements and those that were 
initially defined by DATA statements and have neither been redefined 
nor become undefinad. : 


Execution of gq RETURN or END statement does not cause entities in 
blank common or in any named common block that appears in the main 
prodgram.to become undefined. | 


Connon blocks may be used also toa reduce the total number of storage 
units required for an executable program by causing two or more 
subprograms to shara2 soma of the same storage units. This sharing 
of storage Is permitted If thea rules for defining «end referencing 
data are not violated, . 
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Tables 
Elemental Intrinsic Functions 
“fp ee es eae et eae a ts ee fee tn ee ae ee a ene a fe wo 0 wn ae arn a ene fea ewe eee Sp asc acasler lacincts femme eee oe te ee eee a 
i . : \Number of} Generic } Spacific!} Type of 
} Intrinsic Functlon 3 Def nition Arguments} Name i Name : Argument i: Function 
fe en ce ee an wn tn ane ae wae as ee ofp ore tne ee ors to ae on oe se one ot oe ut wa ene a ene te we en Eee eee ne ee eee ee fn ee ee et fe ee ee 
1 Type Conversion i; Conversion H 1 i INT : = i Integer : Integer 
H i: to Integer i a : INT i Real. : Integer. 
i : int(a) i ; + IFIX § Real -§ Integer 
i- i: Saa Note l : : } IDINT i} Double $} Integer 
i : H : + IHINT { Half } Integer 
H ' H H io ’ Complex + Integer 
; fot mae ne em oe me ae wc ee ee fe re er ae me ae ae mn fone an ee ee ee S cententententestentententent ee ee a ee eee ope eo ee oe ees ee 
; } Conversion a 1. i REAL ' REAL + Integer + Real 
i :.to Real 4 ‘ + FLOAT } Integer ' Real 
H ; See Note 2 H H 7 : Real i Real 
q i j i { SNGL ; Double + Real 
i H H H $; EXTEND + Half +; Real 
: i H ; i = + Complex i Real 
: ils ethene tontantententententontentententementeien Sh we ee moe oe me me rene pt em ee pe ee ee a eee See eee aaa ee re a re oe 
: ' Conversion : 1 + DBLE i> ; Inteaer i Double 
i i to Double ‘ i i> : Real $ Double 
H i See Note 3 i 4 i $ Double ; Double 
j i i : io } Complex ' Double 
: ae ee aan eae ae $$ $-—-——- $—-——— $+ $e 
i i Conversion + 2. or 2 } CMPLX i= ! Integer ; Complex 
} : to Complex H ' {= $ Real ! Complex 
i | See Note 4 : H io : Double i; Compiex 
: : H ; i> + Complex } Complex 
! me ee cs a tn nan oe ee ee me ne ee of meas ens ee $e em me me pe ee ee fe ee ee 
; ! Canversion H 1 H § ICHAR } Character { Integer 
; i to Integer } ; H : $ 
Pech ote = r 
' ho a ca ee nen ne me ee ae piper iene ne ee ear fe ae ae ma re we sn a se fm ee es non fe ee ee ee oe eo ee ee 
: ! Conversion : 1 ; + CHAR } Integer } Character 
H ' to Character : } ' : H 
; + See Note 5 H ' i H ' 
H fat me ee ee owe Se te eee ee fn eee eee fee eee power ne few em ee 
; ; Converston i 1 t HALF i7 : Integer $ Half 
H + to Half : ' i ; Real + Half 
‘e H H H io ! Double ' Half 
i i i H i- i} Half + Half 
H ' 4 H io -§ Complex + Half 
of me nt ne a en ot ee fen eee ene ene we ee en oe i en a ae ee ann ee eee fem ee ee en eee een foe ee 
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ot we te ee Oe ob wee oe ob ee ee Oe fh oe ee we ob Sewn ff eee Oe ee we ee ee oh ee - 


ofp ce ne oe a ee nn nn a we fee hs Sc saan ee he ee kee i of a nt eee en eee fener en Sf ee wat ce et eee a ee a tn a we sa aw wn ofp we eee ann ae oe nn a 
H : iNumber off Genaric | Specifici Type of 

: Intrinsic Function {} Dafinition iArgumentsi Name $ Name ' Argument { Function 
fae na ee eee eee a nw ek i ee oer a ee tee a ce a a eae + eee fee een eee free nee fae wet er rn a ee om fener ne —— 
H ' Conversion ; 1 + BOOL , —— ' Integer ! Boolean 

i i; to Boolean i H joc } Real $ Boolean 

} t See note 14 H : ioc ; Double ; Boolean 

H ' } H io > Half * Booleen 

+ i H : {=< » Complex t Boolean. 

i H ; } § -— : Character i? Boolean 

+ pe ee eee eee ee frm ewe ene $00 soe ee oon eon oe ene ee oe a ee 
a ' Conversion i 1 H ; BIOL $ Bit § Logical 

: } to Logica!) } i H ; ‘ 

+ i ee a ee ee $a ee eee ee forme mene forme eee foe meee mene ooo 
} + Conversion i 1 H + LTOB + Logical ' Bit 

: ' to Bit a ; : ; H 
$——— + poe $—— $e foe 2 foe eee 
+ Truncation : int(a) : 1 1 AINT + AINT +; Real * Real 

} i; See Note 1 H H + DINT i; Double i Double 

4 : } H + HINT ; Half ! Half 

ofp soe re we ae eon er ae eos nn in eae tm ane fee ee ae ee ee ae ee eee fe ee ae ete ere oe ee ee pe me ee fee en wee ee ee peewee nee 
} Nearest Whole t int(ate5) if 420% 1 ' ANINT $+ ANINT + Real i; Real 

| Number +; intla—-.5) if ato} 1 } + DNINT $ Double + Double 

i H i i '; HNINT : Half ; Half 

ee ane ne amenre pe ie enw eae a et ne ne foam foe fee is oct cata ected tiie a Pecan opened 
+ Nearest Integer i int(€at+.5) if 3291 1 t NINT t+ NINT ; Real : Integer 

f intla-.5) if aco} 1 ! IDNINT { Double t Integer 

H : : } + IHNINT ?! Half $ Integer 

fo on eon a ea nc ne a ee me nc ee ee rene ee os fe ee fp ee ee spe ee ae ee ee $e eee ee fp ae ee san sn ae ee 
} Absolute Value > ta i 1 + ABS ' IABS ! Integer $ Integer 

: ; ; : ; ABS ; Real ; Real 
4 -} See Note 6 : H + DABS $ Double ' Double 

} i : H * HABS ; Half : Half 

H PC ap ee 2+abee2) ee. 5! 1 ' + CABS : Complex : Real 

fp me et oe ms mc ne ae a ee eae se pm ee eae we enn tae a ee me fe en ee fame fe et ee $m eee ae ee fem ee 
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fe ee a fH eee fo ee nen fee ee nee fee tee ee meee femme ene 
H a? : : | rHumber of: Generic { Specific: Type of : 
i. Intrinsic Function {| Definition iArguments: Name : Name : Argument i Function 
$—— Sooo $—---—----— $e $—-———--———. +———-—~—-—-—-—- freee eee ne 
i: Remaindering 1 al-int(gal/a2)*a2: 2 +; MOD + MOD : Integer : Integer 

' ; See Note 1 H } i AMOD + Real + Real 

H : H : : DMOD + Double : Double 

H 1 H H + HNDD i Half i Half 

fp mnt nen ec ee ee pee ee ee ae ee fe me ee few $e eee eee fe ef 
? Transfer of Stas i jali If a2> 0 } 2 + SIGN : ISIGN $¢ Integer + Integer 

i oa i “3aRli if a2 < 0 } H : SIGN ; Real +; Real 

' H : : + DSIGN : Double + Double 

H ' i H + HSIGN i Half ; Half 

fo se man oe ene es oe msn ne ms tt me ooo fp mee me mee fe a fae ee fern ee ee ee $e ee 
} Posttive Difference! al-a2 ff al>da2 ff 2 ; DIM © IDIM : Integer } Integer 

‘ : 0 f algae } : ; DIN + Real i Real 

i i i i i; DDIM ; Doubje : Double 

: H He H + HDIN : Half : Half 

fo a ee ee oe en a eH ot feo ee eee son ee ae eee eo nen em ooo fae me en fee ee poem ew ee ewe poem enn wee 
1 Extended Pracision $ 31*22 i 2 H ; DPROD + Real + Double 

; Product oa | H : + RPROD : Half i Real 

fo oe ae nt a a a a a Hn ne oe fee en ae er cee eer ee en a cee ee fee ne ere femme meee foe nn meen $mcee eee ee : aleteeateteteates 
: Choosing Largest : Max (Ble adverse) |: 22 i MAX ; MAXO } Integer i Integer 

} Value “4 H H + AMAX1 : Real + Real 

: H H : : DHMAXL ; Double : Double 

i : H : + HNAX1 ; Half : Half 

. ' ' fo poe $— $o- + 
; H : H +; AMAXO +; Integer : Real 

: ‘ i H i MAX1 ; Real : Integer 

Sn ooo me en ee ce ee ee eee ee men ne pron $—— $—--——-—---—— $a $—-——-————-— 
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$e a a ee pt ee ee eee oe $e eee fem eee nee pone ee 
H : iHumber of: Generic i Specific 
H Intrinsic Function : Dafinition iArguments: Neme ; Name 
$e pon $e po fe te ee 
' Choosing Smallest ! minlalya2seo4e) !$ 22 + MIN + MINO 

; Value t 3 H } i AMIN 

{ DMINI 

= ! HNINI 

H ‘ > aaa aaa aaiars saa aaa ac ae 
: : i : + AMINO 

H H 1 4 ; MINI 

ofp noe coe a one et a tn et es pe ne ree ne es ee ee fe arene ee ee eee pee ee we ee fone 
; Langth | Langth of H 1 H i LEN 

H + Character Entity} H H 

che ae men oan see ee et eon ae a nt we oo (fe en an ee os prem e eee 
+} Index of ; Location of : 2 i : INDEX 
| a Substring ' Substring a2 : : ; 

: i in String al } H H 

} + See Note 10 1 + : 

fp oe ee cee cee i orto ne ne om a ew ae fom oa ase ae ee ee nes a ae ea af on nn ce oe wre a ee fee ene freemen 
} Imaginary Part of ¢{ ai i 1 } + AIMAG 

1 Complex Argument : See Note 6 H H ' 

Sp ae en a a a a a oe ne eo ne fot es oe a a ce an ae ee a mn we ne s ceetesenteetedententantane Stet Stearate 
i} Canjugate of a + (ace-al) i 1 i + CONJG 

' Complex Argument | See Note 6 H : H 

fp a met ere a nn a et ee en ee oe ee mw one foe nn a er ne ee ofp ee ce ae ee femme mae ee 
i Square Root > (3g) **1/ ; 1 i SQRT + SQRT 

H H } H + DSQRT 

H H H H + HSQRT 

; : H i § CSQRT 

fee + $—-——— a poo 
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fem en ee $n eee pe me a ee a ee fone ne $e ene ee Se ened fom eon + 
:. i. iNumber of! Generic ! Specific: Type of. ' 
i Intrinsic Function {| Definition iArguments} Name : Name } Argument { Function 3} 
$e freee He $——— $e $-——- Sa a tcl ooo + 
i =xponential 1 erg Ha a i EXP + EXP i Real + Real a 
' } ; i ; DEXP ; Double i Double i 
: ; } H + HEXP : Half 1 Half ; 
H H H H ; CEXP + Complex { Complex 
Coen ne nn ee ee ee ooo, oo fp me me ee eo fm ene ee em pn ae cae ot tom fom ene eH + 
; Natural Logarithm ¢: log la) ; j : LOG + ALOG ; Real i Real : 
H 4 be H ; DLOG i Double i Double ; 
H H H i + HLOG i Half 1 Half H 
H H H : i CLOG +; Complex ' Complex 
ofp ae nt en ern ee ae a ont ce a a en nn a i fem em ee fm ee a ee $e eee nee em power nnn + 
: Common Logarithm t tog10(4) : 1 } LOG10 ' ALOG10 i: Raal ; Real H 
i i H 1 1 DLOG1O0 i: Double + Double i 
1 i 4 H +t HLONG10 i: Half ; Half } 
oo Oooo fe ee en re ee eee fmm me Swe oe ne oe foe en ene ene + 
+ Sine i; sin (a) H 1 + SIN : SIN + Real ; Real ‘ 
: ' } } : DSIN : Double ; Double : 
: ; : i + HSIN + Half { Half : 
: H i i i CSIN : Complex ' Complex 3 
fp ae nen ee a ce eo ae to an em aw ooo $ eee ene femme $m eee eee peewee fo ema me een + 
' Cosine + cos(a) H 1 : COS + cas i Real $ Real H 
i ' H : ; ocaos : Double : Double ; 
H t q i + HCOS t Half + Haj f ; 
H : H : ; ccos § Complex ‘ Complex $ 
4$———- foe $e foe $——— fom {SS -aeo + 
! Tangent : tana) q 1 ' TAN * TAN +; Real ; Real H 
i i i H +; DTA $ Double ; Double H 
i H H H + HTAN s Half 1 Half : 
fo ee me a ence ee ee ae ee a an ee oe fee ee ee eee $a ee ne ero $e foe enn nee femme nee + 
+ Cotangent + cotanla) H 1 ' COTAN ! COTAN ; Real ; Real ; 
i H H H + HCOTAN i Half : Half : 
pee ee ee ee: fae ee a $ eee eee fom n een $e ee femme eee poem nena + 
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: : Is false along 3: 4 i H : 

‘ -} dimension a2 i H : i : 

H } San Note 23 i H H 4 H 
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:; Matrix Multiply : Matrix Multiply 3 2 + MATMNUL  } + Integer i Integer 
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fone fen $e $a $——— $-—-——-—— $e ee eee 
: Size of Array : See Note 26 + Lor 23: EXTENT 3 ial Integer i Integer 

} Dimensions : ; ; } ial Real } Integer 

H H : : H ial Double { Integer. 
; H H i H tal Half } Integer 

} : : : } $al Complex ! Integer 

i i : : ; tal Logical ! Integer 

H H ; : H tal Char : Integer 

i H ; : H ial Bit ; Integer 

' ' 7 H : ‘al Boolean } Integer 
fee a me a se ee ao i fp tne em ee a ne ee a ee ne ce oe of mee nee eo ener enna nev fem een ee fm ee fe ee pan 
} Size of Array ' See Note 27 } 1 ; SIZE ; { Integer : Integer 

i | : | H : H i Real + Integer 

: : } H 4 i Double ; Integer 

H ; H i ; i Half ‘ Integer 

i : H H : ! Complex + Integer 

: ‘ : i ; } Logical : Integer 

H H : H : : Character j} Integer 

H H H : : ; Bit } Integer 

i ae : : : : Boolean ; Integer 
ose wot ee mente a tat at nt nt te fp enn an ce ce nn oe wa ee a te fp ee fe a ee fm ee em peewee ewe ne foreman 
i Lower Bound 1 See Note 28 i lor 2 i LBOUND ial Integer } Integer 

; of an Array i : H } tal Real ; Integer 

H i } H : tal Double $$ Integer 

i } H ' H ial Half + Integer 

H i H H i $31 Complex {| Integer 

H : ; H : 1al Logical ! Integer 

: H H i H ial Char i Integer 

H H i ; : tal Bit + Integer 

H H H } H ial Boolean ! Integer 

foe are sa oe te mes a ee ane a ae os a me en ee ae en at ee ee ff te mee ean a ee a fee ee eee ferme eee foemeee ween 
| Upper Bound ; S@2 Note 29 >; lor 2 +: UBOUND 3; if1 Integer i: Integer 

: of an Array H i H : ial Real + Integer 

: H H H i !21 Double § Integer 

H : i H : ial Half : Integer | 
‘ : H H H ifl Complex { Integer 

H ' H H : :al Logical i! Integer 

‘ H H i H i811 Char : Integer 

i : i H ‘ tal Bit : Integer. 

‘ i H ; } i681 Boolean } Integer 
ooo fae foe $+ oR one fee ne eee eee fe ee eee ae 
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Table 5 (continued) 


Array-valued Intrinsic EUnet ALORS 
ee ae te ee a re ne tr a ee ee ee ee ee ee fee eee fmm en een $e een ene fee me eee fee ee 
i ! iNumber of} Generic : Specifici Type of 
4 Intrinsic Function } Definition tArguments! Mame + Name i; Argument ? Function 
$e eee $e ee $e or fe ee mm mene en ca eee ee $e eee een meee fee eemen ee - 
» Convert : See Note 37 H 1 tROWWISE H i Integer i Integer 
! Rowwise Array into } ; } i $ Real ' Real 
+; Cojumnwise Arrey i i i ; $ Double + Double 
H i oe } :. : Half } Half 
4 ; ; H : i Complex ! Compiex 
H H i i i $ Logical : Logical 
; H H 4 .. : Character { Character 
: H H : : : Bit : Bit 
H 4 : i : ' Boolean } Boolean 
fone $e + $$ fpo— + $———-——-— {ceca ee 
1 Convert + See Note 36 1 1COLUNNWISE} : Integer + Integer. 
1 Columnwis? Array ‘ i i i : Real i Real 
! into Rowwise Array % i i i ; Double i Doubje 
H : H i } i Half i Half 
H ' . H : ' Complex i Complex 
i i H i. ; : Logical i Logical 
i H : } : $ Character ! Character 
: : ' H : : Bit ; Bit 
i H i i H § Boolean i Boolean 
oe eae ne ne me ene met ene e t e m fe te ee ee we penne foe $e fee pore een eee 
: Increase Rank 1 See Note 39 i 2 1 SPREAD 3} i al integer’ Integer 
1 of an array : ' : : $ al Real i Integer 
t i } } H : al Dbie ' Integer 
H H H : ; ; al Half $} Integer 
i. : 4 ' : { 31 Compiex! Integer 
1 H H ’ H } g1 Logical! Integer 
H H H H : al Char ; Integer 
: H H ' H +; al Bit ; Integer 
i : } ' : ${ al Bool ' Integer 
a men a te a ee ce a fiers mee oe ee eet ene me ne me tae fe ee ae ne ee poem e fae a econ ae ee ee ro foe mn eee 
i Rapiicate an ; See Note 40° - 2 TREPLICATE: i g1 Integeri Integer 
' array dimension ' : : : i al Real + Integer 
i i } : H : 21 Dble i Integer 
H : ' : H ; al Half + Integer 
i H H : : +} 21 Complex: Integer 
' H : 4 : +} g1 Logical! Integer 
i : : H ! + al Char ; Integer 
H H H : H : a1 Bit + Integer 
oo H H : i : £1 Bool + Integer. 
+ + + & + + 
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(2) 


(3) 


(4) 
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For a of type integers int(a)#ae For a of type reals half 
precislons or double precistions there are two cases: If tai < 
ly int(a)=0>; if tai 22 1s intla) is the integer whose 
muanitude is the targast Integer that does not exceed the 
magnitude of a and whose sign is the same as the sign of J3e 
For axampt! es 


For a of typ2 complexy int({a) is the value obtained 
by applying the above rule to the real part of ge 


For a of type realy IFIX{a) is the same as INT(a). 


For 4 of type Booleans INT(a) {ts the integer represented by 
the bit string ge | | 


For 4 of typa half, INT{(a)=INTCREAL(A)). 


For 4 of type reals REAL( aA) is de For a of type integers 
double precision» or half precisiony REAL(a) %is as much 
pracision of the significant part of pa as a real datum can 
contains For 4 of type complexe REAL(3) Is the real part of 
Ae ‘ 

For 4 of type Integers FLOAT(a) Is the same as 

REAL (3). 


For 4 af typa Booleans REAL (a) Is the real datum represented 


by the bit string ae 


For 4 of type double precisionys, DBLE(a) Is a» For a of type 
integer or real» DBLE(3) is as much precision of. the 
significant part of a4 as a. double precision datum can 
containe For 3 of ftypa complex, DBLE(a) is as much precision 
of the significant part of the real part of a as a double 
pracision datum can contains 


For 3 of tyne half or Boaleanys DBLE(a Y=DBLE(REAL(a)). 


CMPLX may have one or two ardumentse If there is one 
argumants Jt may. be of type Inteyers reals double precisions 
Or complex. If there are two argumentss they must both be of 
the same type and may be of type integers reals or double. 


precis SiOne 


For 4 of tyne comotlaxs CMNPLX(a) [ss Se For a of type integers 
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real» or double precisions CMPLX{(a) is the complex vatue 
whose real part is REAL( 2) and whose imaginary part is zeroe 


CMPLX(al»a2) is the eae value whose real part is REAL(al) 
and whose imaginary part Is REAL( 32). 


For 4a of type half or Booleans CHPLX(g)=CNPLX(REAL (2)).- 


{5) ICHAR provides a means of converting from a character to an 

integers based on collating weight of the character in the 
collating weiognt tabfe used by the processor. The first 
character In the collating sequence corresponds to position 0 
and the tast to position g-ls where nis the number of 
characters in the collating sequence, 


The value of ICHAR(a) ts an Integer jn the range? 
0 £ ICHAR({a) S$ orl»y where ga is an argument of type character 
of fenath one, The value of a must be a character capable of 
representation in the processor, The collating weight of 
that charactar is the yalue of ICHAR. 


For any characters cl and ¢c2 capable of representation in the 
Processors (S1 .LE. g2) is true if anc only if 
(ICHAR(cG1) «LE. ICHAR(¢2)) is true, and (Gl .FQ. c2) is true 
if anc only if CICHAR{I sl) e&a. ICHAR(¢2)) is truce 


CHAR(i) returns a character having collating weight i in the 
collating weight table used by the processor (3.1.5), 17 
more than one character has collating weight is the choice of 
character raturnad is made by the procassor. The yalue is of 
typos character of length one, i must be an Integer 


expression whose vatue must be in the renge 0 € j € prl.e 


ICHAR{CHAR(L)) Li for QO ¢ il ¢n-l. 


CHARCICHAR(¢)) = g for any character c capable of 
representation in the processor. 


(6) A complex value is expressed as an ordered pair of reals» 
(ar9jL)> where ac is the real part and ai Is the imaginary 
parte 

(7) All angles ara axpressed in radianse 


(8) The result of a function of type complex is the principal 
Values 


(9) All arguments in an intrinsic Function reference must be of 
the same type. 


(10) INDEX (als a2) returns an tnteger value indicating the starting 
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qu) 


(12) 


(13) 


(14) 


position within the character string gal of a substring 
identical to string a2e If a2 occurs more than once in ely» 
the starting postion of the first occurence is returnede 


If a2 does nok occur in als the yalue zero is raturnede Note 
that zero is returned if LEN(al) < LEN( 32). 


The value of the argument of the LEN function need not be 
defined at the time the function reference is executed. 


LGE(alsa2) returns the value true if gl=ag2 or if al follows 


a2 tn tha coflating sequence described In Amerltcan National 
Standard Code for Information Interchangey ANSI X3e4-1977— 
(ASCII)»s and otheruise raturns the value falsee 


LGT(alsa2) returns the value true if al follows a2 in the 
collating saquanca described tn ANSI X36 41977 (ASCII)s and 


otherwise raturns the value false. 


LLE(al,a2) returns the value true if al=a2 or if al precedes 
a2 in the collating sequence described in ANSI X3.4-1977 
{ASCII)» and otherwise returns the value falsee 


LLT (als a2) returns the value true If al precedes a2 in the 
callating sequence described in ANSI X3.4-1977 (ASCII), and 
otherwise returns the value false. . 


If the operands ‘for LGE»s LGT» LLE» and LLT are of unequal 
lengths the shorter operand is considered as if it were 
extended on the a with blanks to the tength of the longer 
operande 


If aither of the character entitles befng compared contains a 
character that is not in the ASCII character sets the result 
is proceéssor-depeandents. 


The values are uniformly distributed in the range (Ossle)-. 


If one argument is presents it determines the shape of the 
result returnad, For ecxamplsas RANF(B) where B has shapa 
(493) will return an erray of random numbers with shape (453) 
and RANF(X) where X is a scalar will return a scalare 


For 34 of type integer» reals or Booleans BOOL(a) is the bit 
string constituting the datum. For a of type double 
precisions half oprecisions or complex, BOOL(Ca) = BOOL 
(REAL(a)). . For a of type character, BOOL{a) is the Boolean 
detun having the value of the Hollerith constant 


nH 
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(16) 


(17) 


(18) 


{19) 


(20) 
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n is the integer having the value of MIN( gs LEN(3))>» 
where a ts the maximum number of characters 
representable in internal processor code in a 
Boolean datum 


f js the string of the leftmost n characters of ae 


Tha snift is teft circular if 34230» and right with sian 
extension and end off if a?<0. For al of type integers, realy» 
foyicsal or Booleans the bit string constituting the datum is 
shifted. For gal of type double precision or complex, the bit 
string constituting REAL (al) is shifted. 


The string of a 1 bits oaccurtas the leftmost a bit positions 
if O<a<g»s where g is the number of bit positions in_ one 
nunerfo storage untt. The fill Js a string of O bits. If 

a=O»y all bits in the result are 0 bits. 


erfela) = leer fla) 


EXTB extracts bits from its first arguments as indicated by 
its second and third arguments. The first argument may be of 
any data typa excent character or bit. For a half precisicns 
double precisions or complex first arguments the argument is 
converted to REAL(a). 


Arguments i and j wrust be of type =tintegers Argument i 
indicates the first bit to be extracteds numbering from bit 
zero on the feFt. Argument J indicates the number of bits to 
be extracted. 


INSB inserts bits from its first arguments as Indicated by 
its secand and third argumentss into a copy of its fourth 
argument. The fourth argument itself is not alterede The 
first and fourth arguments may ba of any data type except 
character or bit. For a half precistoans double precisions or 
complex first or fourth arguments the argument is converted 
to REAL(a) or REAL(b) respectively. 


Argunents 1 and J must be of type Integer. The result is the 
value of argument b except that j bits beyinning with bit j[ 
are raplaced with the rflahtmost J bits from argument ae Bits 
are numbered from the left beginning with zeroe 


MERGE produces a result which contains the yalue from 21 when 
the corresponding value in a3 is truey otherwise it contains 
the yalue from 432.2 a3 must be a scalar or array expression 
of type logical.e gl and a2 must be of the same type and they 
must be conformable with 23. If 33 is a scalars 21 #x=and a2 
must be scalars. al and 4ga2 may be scalars or array 
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expressions. The result of MERGE is of the same type as gl 
and a2. and has the same shape as g3-6 7 


(21) al and a2 must be one dimensional array expressions 2nd must 
have the same shape. 


(22) ga must be a two dimensional array expressione If the shape 
of 4 is (msen)s the shape of the result of TRANSPOSE will be 
(nem) with the row and column values interchangede 


(23) If a2 is omittads the function is applied to all elements of 
al to yield a scalar value. al must be an arrays array 
sections or an array expressione If 31 Ras size zero then 
the result has size zeros unless dimension a2 of al is the 
only one of siz2 zero In which case thea result has non-zero 
Slze and all alements have the same value. 7 


(24) The operation per formed by MATMUL(alsa2) depends on the 
shapes of al and a2. If al and 22 are of arithmetic types 
the three possible operations are: 


(1) 21 and a2 are tyvo dimensional array exprassicns3 the 
shape of al is (nem) and the shape of 32 is (mysk). 
Tne shape of the result array is (nok). The value of 
the (ish) element of the result array is: 


SUM ( ally *) * a2» h) ) 


{2) 21 Is a one dimenstonal array expresston and 22 Its a 
two dimensional array expressions; the shape of 31 is 
(m)»s the shape of p2 Js (msk)-. The shape of the 
result array is (k). The value of the ith element of 
the result array is? 


SUM ( al(*) * a2(*s, 7) ) 


(3) al is a two dimensional array expression Gnd a2 is a 
one dimensional array expressions; the shape of gl ts 
{nem)» the shape of a2 is ([m)-. The shape of the 
rasult array Js (nn). The value of the ith element of 
the resu!lt array jis: 


SUM ( allis *) * a2(*) ) 
Tha formulas for the values of the three possibile operations 
performed by a matrix ..multiply. mathematically define an 
intsrpretation for the NATNUL function, The formulas do not 
specify tha computational method the processor must use to 
compute MATNULe 
If al and 32 are of type logical, the three possible 
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oparations are? 


(1) 21 and 22 are two dimensfonal array expressions; the 
shape of al is ({(nsm) and the shape of a2 is (msk). 
The shape of the result array is (nsk). The value= of 
the (ish) element of the array is: | ; 


ANY ( ellis*®) sANDe. 920%. hh) ). 


(2) al is a oone dimensional array expression and a2 is a 
tuo dimansional array expression; the shaps of. 31 is. 
{m)s» the shape of a2 is (mek). The shape of the- 
result array is (kh). The value of tha ith element of. 
the result array is: ‘e 


ANY { als » AND. a2(*»9i) ) 


(3) 21 Is a two dimensional array expression and a2 is a 
one dimensional array expressions the shape of al is 
{(nem)s the shane of a2 is (mj). The shape of. the 
result array is (n). The value of the ith element of 
the result array is? 


ANY ( al€}s *) sANDs 2208) )- 


-RAHK{a) returns the number of. dimensions of 3 as an integer 


velue,., a may be a scalars arrays, array sections or array 
expressione If 4 ts a scalars then RANK(a) will return zeroe 
RAWK( a) where a Is an array section returns the number of 
section selectors in the array section reference ae RANK(qQ) 
where 9 is an allocatable array returns the number of 
dimensions of as whether or not q is allocated. 


If g1 is an arrays array sactions or array expression with on 
dimensionss EXTENT(al) returns a one dimensional array of 9g 
integer valuase The yalue of the Ith element of the result 
of EXTZNT(al) Is the size of the jth dimension of ale The 
result of EXTENT(al) %¢s undefined if 21 ts an assumed size 
arraye 


EXTENT(als32) returns the size of the dimension of al 
corresponding to the value of a2. The result is an integer 
scaiar valuee a2 must be an Integer scalar value such that 1 
§ 22 € pe The result of EXTENT(alsa2) is undefined if al is 
an assumed size array and 42 destgnates the tast dimension. 
The result of EXTENT{(alsa2) is undefined if al is an 
allocatable array that is not currantty allocated. 


SIZE(al) returns the size of the arrays array sections or 
array expression gl an an inteyere The size is the product 
of the sizes of each of the dimensions. The result of SIZE 
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is undefined if al is an assumed size array or if al Is an 
allocatable array that is not currently allocated, 


If sgl is an arrays array sactions or array expression with o 


dimensionss then LBQUND(al) returns a one dimensional array 
of n integer values. The value of the Ith element of the 


result of LBOUND{al) is the lower bound of the ith dimension 
oF gle LBOUND(alsa2) returns as an Integer scalar value the 
lower dimension bound of the dimension of al corresponding to 
the yalue of a2 where 1¢ 32 § g. The Jower bound of an 
array section or an array expression is defined to be 1. The 
result of LBOUND is undefined {tf 91 is an allocatable array 
that is not currently allocated, 


If al is an arrays array sections or array expression with o 
digenstens then UBOUND(al) returns a one dimensional array of 
p integer valuese Tha vaiue of the ith element ef the result 
of UBOUND({al) is the upper bound of the ith dimension of gale 
UBNUNID(alsa2) returns as an integer seslar value the upper 
bound of the dimension of al corresponding to the value of g2 


ahera Ll << a2 ¢ of The result of UBOUND(al) is undefined if 


al is an assumed size arraye The result of UBOUND(alsq2) Is 
undefined if 321 is en assumed size array. and 32 designates 


the fast dimension. The upper bound of an array section or 


an array expression is defined to be the number of elements 
in the dimanston. The result of UBOUND( a1) or UBOUND( 312482) 
is undefj{ned if al is an altlocatable array that is not 
currantiy allocated, 


Pack Array Into Vector. PACK returns a one-dimensional array 
of the same type as al consisting of all ‘elements of al 
corresponding to true elaments of a2. The elements of gl are 
taken in subscript order. a2 must be a logical array 
eypresston conformable with ale. If 23 Js not oresenty the 
result array's size is the number of true elements in a2e If 
a3 is presants the result array size Is the same es a3. a3 
is a onesdimensSional array of the same type as al with at 
least as many @lemants as there are true elements in a2, 


Unpack Vector into Arraye UNPACK returns an array of the 
same typa as gl and the same shape as g2-e 22 is a togical 
Arr aye a3 %sS an array of the same type as g1 and the same 
shape as a2. Elaments of the result array corresponding to 
true values of a2 are taken in subscript order and assigned 
successive veluas of the onr-dimensional array ale Each 


element of the result array corresponding to a false value of 


a2 is assigned the value of the corresponding element of 43-5 
22 and 23 must be conformable arrays. The number of elenents 
in the vector al must be greater than or equal to the number 
of true valuas In array 22-5 a3 may be a scalare In this 
cases, each element of the result array corresponding to a 
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false value of a2 is assigned the value of 8 
#1 must be an arrays array section or array expressione The 


Ly 


If 


If 


(33) 


type of the result will be the same as the type of gale 


Tha raduetion dimension may be specified by the optional 


keyword DIM =. 
The mask may be specified by the optional keyword MASK =. 


If ae (DIM) is omitted and 2 mask {a3) is specifieds the MASK 
= keyword is requirede 


23 is not sSpacifieds it is as if It were specifled as an 
array conforming to al and having all elements true. 


a2 is not spacifieds the function is applied to all of the 
elements of al corresponding to true elements of a3 to yield 


4 scalar3 if al has size zero or if #3 has no true elements 


then the value its as given in the table below. 


a2 is specifiads the Function is applied along dimension a2 
to elements of al corresponding to true elements of a3 to 


yield an array with rank RANK(Cal)-1; whenever the mesking by 


a3 leaves no elementss the corresponding component of the 
result is as given in the table below; if al hes size zero 
then the result has size zero unless dimension a2 of al fs 
the only on@ of size zeros in which case the result has 
non-zero size and all elements have the value given tn the 
table below, 


Function Result when the number of 
elements Is zero 


SUM zero 

PRODUCT - one 

MAXVAL the smeliest valid machine number 
of type al 


NINVAL the largest valid machine number 
| of typ2 al 


For any argument ai of type integers reals logicals or 
Boolean the bit string. that is operated on is the datum 
itself. 


For any argument ai of type double precisjonys half precisions 
or complex the bit string that is operated on is REAL(gI). 


If the arguments are type bity then the function result is 
also type bit. If any argument is type bit, then all 
arguments must be type bit. 
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(34) 


(35) 


(36) 


(37) 


(38) 


(39) 


DIAGONAL(Calya2) returns a two dimensional arrays call it 


diag» with shape (22242) of the same type as ale 81 Is a 
scalar or a one dimensional array expression with a2 array 
alamoentsSe 32 is an =iInteger scalar value. If g1 is a one 
dimensional array objecty its size must be equal to g2, If 
disalsss) for l<sta2 Is considered as a one dimenstona!l array 
of size a2s9 its value is ale AI! other elements of diag have 
a default value according to the type of a1. Defeult values 


by type are: 


TYPE VALUE 
Integer 0 
Real 0.0 
Double pracision 0.000 
Half preaciston 0.0. 
Complex (0.20) 
Logical oFALSEe 
Cnazracter = m blanks where LEN( 41) is o 
Bit Bro? 
SES .produces .a one dimens.iona! integ@r array with size g§ 


given by MAX((a2—-a1lt+a3)/a3  » 1). j%qThe array values are aly 
alta3ys Al+2%* 339 e009 214(S-1) #83. al and 32 must be integer 
scalar valuese a3y if presents, must be a nonzero integer 
scalar value. If 43 is omitteds if defaults to one. 


ALT produces a one dimensional logical array of size 43 
consisting of (a3/(g1+92))4+1 repetitions of al false values 
followed by a2 true values truncated on the right to size g3. 
gle zg2s9 and 33 must he positive Integer scalar valuese 


ROWWISE returns as its result the rowwise array corresponding 
to its actual argument columnuwise arrays», such that each 
element (Sls-eeessn) of the resulting rowysise array will have 
a value identical to element (Slseeessn) of the actual 
argumante 


COLUMNNWISE raturns as {ts result the columnwise array 
corresponding to its actual argument rowwise arrays such that 
gach element (Sleeeessn) of the resulting columnnise array 
will have a value identical to element (Slyeesessn) of the 
actual argument, 


SPREAD increases the dimensionality of 31. by duplicating its 
value along the dimension specified by a2 a3 times. al =may 
be a scealar (defined to havea zare dimensions) or an array 
axpression with 9 dimensftons. a2 must be an Integer value 
such that 1 § a2 € RANK(g1)4+1.- 93 must be an integer vatue 
such that a3>0. . 
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The result type of SPREAD {fs the same as The tyon of gl. If rae a 


scalars a2 must equal 1. The result is a one dimensional array of 
slza a3 all of whose elements have the value al. If gl is an array 
with shape (dled25eeesdn) then the result of SPREAD(alsisa3) is an 
arrays call it gp» with the shape of (dlsd2ae0eesdn) where the total 


= number of dimensions is otl and di is the added dimension. The 


value of array section spl¥o*oeeeeSiseess*) where lgsiga is given by 
al. . 


(40) REPLICATE produces an array with the same number of 
dim@nsions as al and the same type as ale al must be an 
array with dimension g.where 1l<€n¢7e a2 must be an integer 
value such that 1<a2¢ne «a3 must be an integer value such 
that a3>0-6 If al is an array expression with shape 
(dlsd2scececsdis.eexdn) then the result of REPLICATE(alsts 23) 
is an array with shape (dlyed2seieen 33% digesedn)» The value of 
thea rasult array Is 23 copies of al concatenated te form the 
new ith dimension. 


-16.10-1 RESTRICTIONS OM _RANGE_QE_ARGUMENTS_AND RESULTS. 


Restrictions on the range of arguments and results for intrinsic 
functions whan referenced by thelr specific names are as follows: 


(1) Remainderiny: The result for MODs ANODs HMOD, and ODMOD is 


undefined whan tha valua of the second argument is zeroes 

(2) Transfer of Sign: If the value of the first argument of 
ISIGHs ae HSIGNs or DSIGN is zeros the result is Zeros 
which is neithar positive nor negative (4,143). 


(3) Square Root:. The values of the argument of SQRTs HSQRT, and 


DSQRT must be greater than or equal to zero. The result of 


CSART is the principal value with the real pert greater than 
Or equel to zero. When the raga] part of the result is zeros 
the imaginary part is greater than or equal to zero. 


(4) Logarithms: The value of the argument of ALOGs DLOGs» HLOG, 
ALOG1LOs, HLOG1Os, and DLOG1O must be yreater than zero. The 
value of the argument of CLOG must not be (O490+)-¢ The range 
of the imaginary part of the result of CLOG is: 


-~pi < imaginary part ¢ pie The imaginary part of the result . 


is pi only when the real part of the argument is tess than 
zero and the imaginary part of the argument is Zeroe 


(5) Sines Cosinas and Tangent: The absolute value of the argument 
of SINs DSIN»s HSINs COS» DCOS» HCOSs TANs HTANs and ODTAN is 
not restricted to be less than 2 pi, 


(6) Arcsina!: The absolute vatue of the argument of ASINs HASIN: 
and DASIN must be less than or equal to onee The range of 
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the result isi -pi/2 < result eres 


(7) Arccosinet The absolute value of the argument of ACOS» HACOSs 
and DACOS must be fess than or aqual to one. The range of 
the result Is? 0 € resylt < pi. 


{8) Arctanyant: The range of the result for ATANs HATANs and 
DATAN ist -pl/2 ¢ result ¢ pi/2. If the value of the first 
arjunenz of ATAN2s HATAN2s or DATAN2 is positivas the result 
is positive. If the value of the first argument Is zeras the 
result is zero if the second argument is positive and pi i f 
the second argument is negative. If the value of the first 
argument is negatives the result is negativee If the vatue 
of the second argument. is zeroy the absolute value of the 
result is oi/2. The arguments must not both have the vatue- 
ZOTOs The range of the result for ATAN2s HATAN2s and DATAN2 
Is: -pi < rasult € pi. 


(9) Shift: The result for SHIFT is undefined whan the absolute 
yalue of the s2cond argument is yreater than the number of 
bit positions in one numeric storage unit. 


(10) Mask: The result for MAS¥ is undefined when the argument is 
negative or Is agreatar than the number of bit positions in 
one numeric storage unit. 


(11) Hyberbolic Arctangent: The absolute value of the argument of 
ATANH must be less than ones 


The above restrictions on arguments and results aiso apply to the 
intrinsic functions when referenced by their generic nameSe 


L6e11 PROCESSUR=SUPPLIED_EUNCILONS 


The following functions are processor supplied but are not intrinsic 
Funetionse As suchy they mav he frealy replaced by user functions 
or subroutines of the same name» 


Lo.11.e1 DATE 


The form of a raferance to DATE fs: 
DATE) 


The DATE Function raturns the current date as a character string in 
the form tyyyvyemnedd! uhere vvyy represents the four digits of the 
years mm represents the number of the month (Ols,O2y5eee912)8 and dd 
the number of the day of the monthe DATE must be dectared to be of 
Byvoe charactar with length 10 in the calling proosrame 
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16.11.2 ITLNE 


The form of a reference to TIME is? 

TINE) 
The time Funetion returns the current reading of the system clock in 
the form ‘fhh:mmessts where hh is the hours from 00 to 239 mm is 
minutes from 00 to 59, and ss is seconds from 00 to 59. TINE must 
be daclared character of length 8 In the calling programe 


16.1123 SECOND 


The form of a raference to SECOND is: 
SECOND) 


The SECOND function returns the number of CPU seconds used Since the 
heginnina of execution of the program as a value of type regle 


toclis4 LOCLAS 


Tha form of a rafereance to IOCLAS is:. 

IOCLAS( ios) 
where: Los is an error code returned by IODSTAT=. 
The IOCLAS function takes an Integer value ios that is an 
input/output status code obtained by IQSTAT= on an I/0 statement and 
classifles the code Into 4 limited numher of error classeSe The 


integer value returned by the function Js the error class numbere 
The error classes and associated numbers are as follows: 


Class afuercrar 


a 

0 not an error (ios tess than or equal to zero) 

1 “physical davice error 

2 invalid formatteds List-directed»s or NAMELIST Input data 

3 invalid format specification 

4 incorrect value in a cilists olist»s cllist» or iulist of. an 
I/O statenent 

5 operation prohibited on file 

6 exceeded record size 

7 athamept to raad past end of File 

8 write operation followed by read on a sequential file 

9 jolist calls for more data than in unformatted record 

19 record manager detected but unclassifiable error. 
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11 output record timit exceeded on file 


16.11.65 NUMERR 


e 


The form of reference to NUMERR is? 
NUMERRC) 
NUMERR returnss as an integer values the number of input errors 
Since the fast LIMERR calls See the description of LIMERR for 
‘etails. | 
(16.11.6 UNIT 
The form of a reference to UNIT is: 
UNIT Cus asd) 
where: 
uois the unit specifier 


a is the first variable or array element of the block of memory 
spaci’ riad in the preceding BUFFER I or OUT statement 


is the last variable or array element of the block of memory 


fs] 
specified in the preceding BUFFER IN or QUT statement 
sxamp ies 


BUFFER OUT{5s1) (B(l)» B(100)) 
IF ( UNIT(5s B(1)s B(100)) 12514516 


Control transfers to tha statemant labeled 12» 145 or 16 if the 
value returned was —~les Ov» or tles repectively. 


Parameters gq and b of the UNIT function should be included so that 
the global opttiutlzer can associate the call to the UNIT function 
“with possible changes to the values of the entities between a.and be 
If UNIT is called with only the argument yu (as =n most older 
programs) the optimizer will be unable to detect that values between 
a and b ar2 heing modified asynchronously during the span of code 
between the BUFFER IN or BUFFER OUT and the corresponding UNIT calle 
TD OREEO RG specification of all three arguments is recommended. 


16.12 PROCESSOR<SUPPLTED SUBROUTINES 
The followina subroutines ara processor~-supplied but are not 
intrinsic routinas, Therefore, thay can be replaced by a user 
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subroutine or Piaseien of the sama name without use of an EXTERNAL 
statement. 


16.12.61 REMARK 


The form of a call to RENARK Is: 
CALL RENARK(c) 
whereas ¢ is a character expression.e 


The REMARK call places the character string ¢ in the job log as a 
messagee Messages oaxcaeding a aaximunm system dependent length wittt 
be truncated. 


L60el2e2 CONNEC 


The form of a call to CONNEC is: 
CALL CONNEC Cuscs) 


wheres yoois an inte 2968 exprassion specifying an external unit 
number that is connected to a file | 


cs is an intager expression specifving a character set. 


A call to CONNEC causes the specified unit y to be associated = with 
the terminal dévice Jf the job is gxecuting Interactlvely. If the 
job is not executing interactivelys the unit yo will be associated 
with a device in tha same manner as if the call to CONNEC had not 
apnorsarede When a calf! to CONNEC Is mades the contents of the file 
connected to the unit y become undefined. Input/output operations 
on a unit associated with an interactive terminal sre restricted to 
Pormatted I/73s tacluding tist directed and NAMELIST. A unit that Is 
connected to a direct access file may not be specified in a CONNEC 
calle 


A os yalu2 of one specifies Input/outeut In the 128 cheracter ASCII 
set defined by the kK3e4 standarde A cs value of two specifies 
~~input/output in a transparent mede where the character set employed 
is terminal dependent but generally reflects the native character 
set of the devicee Results are undefined for any other value of gcSe 


(16.1263 QISCOY 


The form of a call Lo NISCON jis: 
CALL DISCON(y) 
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wheras yo is an integer expression spacifying an external unit number 


oA call to DISCON disassociates a unit and file from a terminal 
devicee The call to DISCON has no effact if the unit uy is not 
assoclated with a terminals | After execution of the reference to 


DISCONs, the unit u is connected to a file of the same name as before 
but the Fie is now on asystem selected devices, normally mass 
storage. The contents of the File are undefineds 


1601264 LINGRR 


The form of a call to LIMERR is? . 


CALL LINERR( Lin) 


yhere? lin is en Integer exprassion specifying the maximum number of 
formatted input errors allowed before program execution 
is terminated ahnormally. 


Tha LIMERR call allaws formatted data Input without risk of abnormal 
termination when improper input data is encountered, When LIMERR is 
used» progran execution is not terminated until the number of errors 
occurring after the call exceeds the value of Lin. 


Use of _LIMNERR will inhibit termination of execution for input data 
arrors datasted during formatted input Including list directed and 
MAMELIST input. LIMERR has no affect an the processing of errors in 
data input from a connected (terminal) file. 


Aftear a call to LINERR», the error timit continues in effect for all 
subsequent READ statements until Lin errors have been detected. 
LINERR may be called more than once to reinitialize the error count 
and reset tha values of lime Tha current error count may be obtainad 
by a reference to the function NUMERP. A LIMERR. call with a value 
of zero for lin will cause the error fimit to be set to zero and 
normal processor error handiing behavior to be restored... 


When improper input data is detected jn a formatted or NAMELIST read 
with fewer than lin errors detecteds the bad data field is bypassedys 
the count of errors detected is incremented by ones, and processing 
continues with the next fields. When improper input data is detected 
in a listedirected ready the count of errors detacted is incremented 
by ones and cantrol passes to the next executable statement 
following the liste-directed READ statement. The value of the entity 
corresponding to the field in error is undefined. 


16.12-5 RANSET 


The form of a call to RANSET Is? 
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CALL RANSET( seed) 


where $22: is a value of type real» Booleans or integer used to 
specify the starting seed for the random number function RANF. 


16012¢6 RANGEL 


The form of a call to RANGET is: 
CALL RANGET(sval) 


where sval is the value of the current seed of the random number 
generating function RANFe syval must be a variabla or array element 
of type realy Booleans or integer. The value of sval may be passed 
to RANSET at.a later time to regenarate the same sequence of random 
numbers with RANF. Results are undefined If the velue of sval is 
used In any other mannere 
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17-0 BLOCK DATA SUBPROGRAM 


Block data subprograms are used to provide Initial values for 
varfables and array elements In named common blocks.» 


A block data subprogram is e2@ program unit that has a BLOCK DATA 


statement as its first statement. A block data subprogram is | 
nonexecutablsa,. There may be more than one bloc data subprogoran In 


an executable programs 

17.1 BLOCK_DATA_SIATEMENT 

The form of a BLOCK DATA statement is: 
BLOCK DATA Esub] 


where suh is the symbolic name of the block data subprogram in which 
the BLOCK DATA statement appearse 


The optional name sub is 3 global name (19e1e1) and must not be the 
same as the name of an external procedures main programy, or other 
block data subprogram in the same executable programe The name sub 
must not ba the same as any jocal name in the subprogram.e 


17.2 BLOCK _DATA_SURPROSRAM_RESTRICTIONS 


Tha BLOCK DATA statament must appear only as the First statement of 
a bfock data subprogram. The only other statements that may appear 
in a block data subprogram are IMPLICITs PARAMETERs ODINENSION, 
ROWWISEs CONHOINs SAVEs EQUIVALEMCEs DATA» ENDs and type-statemantse 
Note that conment tines are permitted. 


If an entity in a named common block is tinitially defineds all 
entities having storage units in thea common block storage sequence 
Must be specifled even If they are not all Initially defined. More 
than one named common block may have entities initially defined in a 
single block. data subprograme 


Nniv an entity in a named common block may be Initially defined in a 
block data subprogram. Note that entities associated with an entity 
in a common block are considered to be in that common blocke 


The sam2 namad common block may not be spacified tn more than one 
block data subprogram [n the same executable program. 


There must not be more than one unnamed block data subprogram in an 


axgcucabls programe The name BLKDAT# is assigned to th2 unnamed 
block data subproqram. 
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18.0 ASSOCTATION AND DEFINITION 
18.1 STORAGE _AND_ASSOCTATION 


Storage sequences are used to describe relationships that exist 
among variables,» array elementss substrings, common blockss and 
ArQuMeNntSe 


18.1.1 STORAGE SEQUENCE. 


A storage sequence is a sequence (21) of storage units. The size 
of 4 Storaya saguence is the number of storage units in the storage, 
sequences. A Storage unit is a character storage unity bit storage 
unlits or a numeric storage unft. 


AN variable or array efement of type integers real», Booleans or 
logical has a storage sequence of one numeric storage unite 


A varfebdle or array element of type double praciston or camplex has 
a storage sequence of two numeric storage unitse In a complex 
storage s#quéncés the real part has the first storegjge unit and the 
imaginary part has the sacend storage unit, 


A variables array elements or substring of type character has a 
storage sequence of character storage unitse The number of 
character storejge units in the storage sequence Is the langth of the 
character entity.» The order of the sequence corresponds to the 
ordering of character positions (4¢2),. 


A vartable or array element of type half precision has a storage 
seguence of half of one numeric storage unit. 


A variable or array element of type bit has a storage sequence of 
ona bit storaja unite 


Each array and common block has a_ storage sequence (5.3,5 and 
Nede2)e 


L8ele2 ASSOCTATION_SE_STORAGE SEQUENCES 


Two storage sequences sl and s2 are associated if the ith storage 
unit of sl is the same as the jth storaga unit of s2-. This causes 
the (tk) th storage unit of sl to be the same as the (jtk)th storage 
unit -of s2, for-each integer k such that 1 ¢ itk ¢ size of sl and 
Ll ¢§ jtk § size of s2e 
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18.6123 ASSOCIATION OF ENTITIES. 


1841.63 ASSUCTATION OF CUTIES. 


Two variablesy array elementss or substrings are associated if their 
storage. sequences are assoclated,. Tyo antities are totally 
associated if they have the same storage sequence. Two entities are 
partially assogiatead if they area associated but not totally 
associated. | 


The definition stetus and value of en entity affects the definition 
status and value of anv associated entity. An EQUIVALENCE 
statements a CONMON statements an ENTRY . statement (16+7+3)5 or a 
procedure reference (argument association) may cause association of 
storajye sequences. 


An EQUIVALENCE statement causes association of entities only within 
one program unity unless one of the equivalenced entities is also in 
a common block (8.3)... 


Arguments and COMMON statements cause entities in one program unit 
to become associated with entities in another program unit (8.3 and 
1629). Note that association between actual and dummy arguments 
does not ingelvy association of storage sequences except when the 
actual argument is the name of a variables array elements array 
sections arrays, or substringe 


In a funetion subprograms an ENTRY statement causes the entry name 
to become associated with the name of the function subprogram which 
appears in the FUNCTION statement, 


Partial association mav axist batween entities of differant types. 


Except for character entitiess partial association may occur only 
through the use of CONMON, EQUIVALENCEs or ENTRY statementse 
Partial association must not occur through argument associations 
except for arguments of type charactere 


In the example: 


REAL A(4) 5B 

COMPLEX C2) 

DOUBLE PRECISION D 

EQUIVALENCE (C(2)9A(02)9B)» (AsD) 


the third storage unit of Cs the second storage unit of Ay the 


storage unit of Bs and-the second storage unit. of D are specified as. 
the same, The storage sequencers may be Illustrated as: 
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storage unit > 1 £: 2@ ¢§ 3 $.4 3 5§& -4 
J----C ( L)---1----C (2) ---} 
+ AC1)IE AC2)3 A381 AC4)$ 


At2) and 8 are totally associated. The following are partially 
associated: Atl) and C(1)» A(2) and C(2)» AC3) and C(2)5 B and C(2)s5 
“A(1) and Dy» A(2) and Ds B and D»y C1) and D» and C2) and OD- Note 
that atthough ctl) and C(2) are each associated with Ds» C{l1) and 
C(2) are not associated with each othere 


Partial association of character entities occurs when somes but not 
alls of the storage units of the entities are the same. In the 
examples 


CHARACTER A¥49B%49C#3 
EQUIVALENCE (A(233)sBsC) 


Ay Bs and.C are partially associated. 
19.2 EVENTS_ THAT _CAUSS_EUTTILES TO_BEeCcOUuc DEEINED 


Variabless arrayss array sectionsy array elementss and substrings 
hecone defined as follows: 


(1) Execution of an arlthmetics  Jogical», Booleans bitsy or 
character assignment statement causes each entity that 
priceless the equals to hecome dafinad. 


(2) As execution of an Input statement proceedss each entity that 
is assigned a value of its corresponding type from the input 
medium bacomas defined ac the time of such assignmente 


(3) Execution of a OO statenent causes the DO-varjable to become 
defined. 


(4) Beyinnine of execution of action specified by an iImplied-po 
bist in an input/output. statement causes the 
implied-DO-variable to become defined. 


(5) A DATA statement causes entities to bacome iInitislly defined 
at the beginning of execution of an executable program. 


(6) Execution of an ASSIGN statement causes the variable in the 
statement to-become defined with a statement jahel valuee 


(7) When an entity of a given type becomes defineads all totally 
associated entities of the same type become defined except 
that entities totally associated with the variable in-= an 
ASSIGN statement become undefined when the ASSIGN statement 
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is executeds 


(8) A reference to a subprogram causes a dummy argument to become 
defined if the corresponding actual argument is defined with 
a value that is not a statement label valuee Note that there 
must be agraament between the actual argument end the dummy 
argunent (16.9.3). 


(9) Execution of an input/output statement containing an 
input/output status specifier causes tha specified integer 
varlable or array element to become defined. 


(10) Execution of an INQUIRE statement causes any entity that is 
assigned a valuc during the execution of tha statement Dae) 
becone defined I? no error condition exists, 


(11) When a complex entity becomes defined» all partially 
associated raal or Boolean entities become dsafined. 


(12) When beth parts of a complex entity become defined as a 
result of partially associated real or compjex entities 
becoming defined» the complex entity bacomes defined, 


(13) When all characters of a character entity become defineds the 
character entity becomes defined. 


(14) When all elements of an array bacomea defineds the array 
hecomes d2fineds 


(15) When all elements of an array section become defineds the 
array section becomes defineds 


(16) When a Boolaan antity becomes defineds all assoctated integer 
or real entities become defineds When an integer or real 
entity becomes defineds all associated Boolean’ entities 
besoma dafinad. 


{17) When a doubles precision entity becomes defineds all partially 
associated Boolean entities become defined. 


(18) If both parts of a double precision entits become defined as 
a rasult of partially associated Boolean entities becoming 
definedy the double precision entity becomes defined. 


(19) Zero-sized arrayvss array sections and substrings are always 
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18.3 EVENTS_THAT_CAUSS_ENTITIES_10_BEC OWE UNDEFINED 


Varlabless arrayss array sectlons, array elementss and substrings 
become undefined as follows: 


{1) All entities ara undefined at the beginning of execution of 
an executable program except zero-sjzed arrays or _ those 
entities initially defined by DATA statements. 


(2) Whan an entity of a given. type becomas defineds all totally 
associated antitlies of different. type became undefined. 
Howevers when an entity of type Boolean is associated with an 
antity of type integer or reais the Boolean entity does not 
become undefined when the Integer or real entity is defined 
and the integer or real entity does not become undefined when 
the Boolean entity is definede 


(3) Execution of an ASSIGN statement csuses the variable in the 
statement to become undefined as an integer. Entities that 
are associated with the variable become undefined. . 


(4) When an antity of typa other than character becomes defineds 
all partially assoclated entities become undefineds with the 
Following exceptions: | 


(a) uhean an entity of type real or Boolean is partially 
associatad with an entity of type complex, the complex 
entity does not become undefined when the real or 
Boolean antity becomes defined and tha real or Boolean 
entity does not become undefined when the complex 
entity becomes defined 


(b) when an entity of type double precision and an entity 
oy tipe Bootean are partially assaclateds the double 
Precision entity does not become undefined when’ the 
Boolean entity is defined and the Boolean entity does 
not become undefined when the double precision entity 
becomes defined 


(c) when an entity of type complex is partially associated 
With another entity of typ2 complexs dafinition of ona 
antity does not cause the other to become undefined. 


(5) When the evaluation of a function causes an .argument of the 
function or an entity in common to become defined and if a 
reference to the function avgears In an exoression in which 
the yalue of the function is not needed to determine’ the 
value of the expressions then the argument or the entity in 
common bacomes undeafinad when the expresston is evaluated 
(6,6.1)>+ : 


CONTROL DATA PRIVATE 


mo : : 18-6 

Contral ee ear ee Standard FORTRAN 
i , | ; Be 708020 

“18.0 ASSOCIATION AND DEFINITION | 

19¢3 EVENTS THAT CAUSE ENTITIES TO BECOME UNDEFINED 


HD GOD 20 DOO SOE SED SON MOD TRE UD GED HOO RON Mee ORD NE SEED EN 00 HE LED AOD OOS GER WOR EN ENP Aloy OOD BOD Bie ware MEE Ge sum Gon Som a A OS ame HAN AD RO EE OD RD EER OD OOD LD OD GEE AOD OO OH AD eS Oe ME eee UD GED Qe BEND Ce EMP Com 


(6) Theareeueron of a RETURN statement or an END statement 
within a subprogram causes all entities within the subprogram 
to become undefined axcept for the following: 


(a) Entities In blank common 


{b) Initially defined entities that have neither been 
redefined nor become undefined 7 


(ce) Entities specified by SAVE statements 


(d) Entities in a named common block that appears in the 

subprojyram and appears In at Jeast one other program 

-unit that [ss either directly or tndirectiy, referencing 
the subprogram 


(7) When an error condition or end~of-file@ condition occurs 
during axecution of an Input statements all of the entities 
specifjed by the input TJtist 0o the statement become 
undefined. . | 


ner 


(3) Execution of a direct access input statement that specifies a 
record that has not been previously written causes ali of the 
entities specified by the input list of the statement to 
becoma undefined, 


(9) Exacutioen of an INQUIRE. statement “may cause entities to 
become undefined (13.10.3)-. 


(10) When any character of a character entity becomes undefineds 
the charactar entity becomes undefined. 


(11) When an entity becomes undefined as a result of conditions 
described in (5) through (10)»5 al! totally essociatad 
entities becone undefined and all partiaily associated 
entities of type other than character become undefined. 


(12) When any array element. becomes undefineds the array end any 

' array sections containing that array become undefined. This 

does not imply that the undefinition of one array element 
causes any other array element to become undefined. 
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19.0 SCOPE AND CLASSES 3F SYMBOLIC NAMES 


A symbolic name consists of from one to thirty~rone aiphanumeric 
characterss the first of which must be a fettere Some sequences of 
characterss such as format edit descriptors and keywords” that 
uniquely identify certain statementsy for examples GO TOy READ, 
FORMAT,» e@fCe» are not symbolic names in such occurrences nor do they 
Form the first characters of symbolic names in such occurrences. 


19.1 SCOPS_O& SYMBOLIC NAMES 


The scop2 of a symbolic nam2 is an executable programs a program 
units a. PROGRAM statements, a statement function statements or. an 
implied-DD list in a DATA statement, 


The nama of the main program and the nanes of block data 
subprojramss external functions, subroutinesy and common blocks have 
aA scope of an executable programe 


The names of variables» arrayss constantss statement functions, 
intrinsic Functions» NAMELIST group namess and dummy procedures have 
a scope of a program unit. 


The names of variables that appaar as dummy arguments in a statement 
Function statement have a scope eof that statement. 


The names of variables that appear as the DOvariable of an 
implied=-D9 in a DATA statement have a scope of the implied-DO tist. 


A svmboftic unit name (15.1.1) or alternate unfit name (154e1. 2) has a 
scope of the PROGRAM statement in which it appears. 


The main proarams common blockss subprogramSs and external 
procedures ar2 global entities of an executable program. A symbolic 
nane that identifies a global entity must not be usad to tdentify 


any other global entity in the same executable program, except that 
4a common block name may be a program name or a Subprogram nam&es 


19elelel Cle agses_of Global _Enkltless 


A symbolic name in one of the following classes is a global entity 
in an axecutahie programs 


(1) Common block 
(2) External function 
(3) Subroutine 
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19.0 SCOPE AND CLASSES OF SYMBOLIC NAMES | 
L9elelel Classes of Global Entities. 


(4) Maln prograsn 

(5) Block data subprogram 
19.1.2 LOCAL_-ESTITIES. 
The symbolic name of a local entity identifies that entity in a 
single program unite Within a program units a symbolic name that is 
in ona class of entities locel to the srogram untt must not also be 
in another class of entities local to the program unite Howevers a 
symbolic name that identifies a tocal entity mays in a different 
program units identify an entity of any class that Is elther local 
to that program unit or global to the executable program. A 
symbolic name that identifies a global entity in a program unit must 
not he used to idantify a local entity in that proorem units except 


For a common block namas an external function nama (19e262)s and a 
symbolic unit name or alternate unit name (1922.13). 


19ele2el Classes_of_Local_Entitlass 


A symbolic name in one of the following classes is a local entity in 
a program unite 


(1) Array 

{2) Variable 

(3) Constant 

(4) Statement function 

(5) Intrinsic function 

(6) Dummy procedure 

(7) NAMELIST group name 
A symbolic name that is a dummy argument of a proceduré is 
classified as a variables arrays ofr dunmy procedure. The 


soacification and usage must not violate the respective class rulese 


19.2 CLASSES_OE_ SYMBOLIC _UNANES 


In a program units a symbolic name must not be in more than one. 
class excent as noted in the following paragraphs of this section. 
‘There are no restrictions on tha appearances of the same symbolic 

nane in different program unlts of an executabdJe program other than 
those noted in this sectione 
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19.201 COMMON BLOCK 


A symbolic name is tha name of a common block ff and only if {t 


apaears as a block name in a COMMON statement (8.3). 
A common biock name is global to the executable programe 


A common bieck name in &@ program unit may also be the name of any 
local entity other than a constants intrinsic functions or aie local 
variable that is also an external function in a function subprograme 
If a name is used For both a common block and a tlocal entitys the 
appearance of that name In any context other than as a common block 
name in a COMMON or SAVE statement identifies only the local entity. 


Note that an intrinsic function name may be # common block name in a 


program unit that does net reference the Intrinsle functione 


19.2.2 EXTEENAL FUNCTION 


A symbolic nane is the name of an external function if it meets any 


of the following condjtions: 


(1) The name appears immediately following the word FUNCTION jn a 
FUNCTION statemant or thea word ENTRY in an ENTRY statement 
withtIn a function subprogram. | 


{2) It is mot an array names character variable names statement 
Function namay intrinsic function names dummy erguments or 
subroutine name and every appearance is immediately followed 
by a left parenthesis except in a type=-statementsy in an 
EXTERNAL statements or as an actual argument. | 


(3) The name appears Immediately follwing the word FUNCTION in a 
FUNCTION statement in a procedure interface information 
Dlocke 


In a function subprograms the name of a function that appears 
immediately after the word FUNCTION in a FUNCTION statement or 
immediately after. the word ENTRY In an ENTRY statement may also be 
the name of a varlable In that subprogram (16.5.1). At least one 
such function name must be the name of a variable in a function 
subprograme 


An axternal Function name is gtobal to the executable program. 


19.2.3 SUBROUTINE 


LQ 


A symbolic name Js the name of a subroutine if It meets altther of 


tha Following cond}{tions: 


(1) The name appears immediately following the word SUBROUTINE In 
a SUBROUTINE statement or the word ENTRY In an ENTRY 
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19.2.3 SUBROUTINE 


statament within a subroutine subprogram.e 


(2) The name apne8ars Immediately following the word CALL in a 
CALL statement and jis not a dummy argument. 


A sSubroutina name is global to the executable programe 
19.264 MAIN PROGRAM 


A. symbolic name is the name of aA main program if and onty if it 
appears in a PROGRAN statement In the main program. 


A main program name is global to the executable programe 
19e205 BLOCK _ DATA_SUBOROGR AL 


A symbolic nane is the name of a block data subprogram if and only 
if it appears in a BLOCK DATA statement. 


A dlock data subprogjram name Is. global to the executabje programe 
19.26 ARRAY 


A symbolic name is the name of an array if it appears as the array 
nane in an array declarator (5.2) In a DINENSTON, ROWWISEs COMMON» 
or type-statement. 


An array name is focal to a program unit» 
An array nane may be the same as a common biock name. 
1922.7 VARIABLE 


A symbolic name is the name of a yarjable If it meats all of the 
following conditions: 


{1) It does not appear in a PARAMETER, INTRINSICs or EXTERNAL 


stateamente 


(2) It is not the name of an arravy subroutiney main programs or 
block data subproyram.e 


{3) It appears othar than as the nane of a common blocks the name 
of an external functtion in a FUNCTION statements or an entry 
name in an ENTRY statemant in an external function. 


(4) It is never immadiately followed by a Jeft parenthesis unless 
ft is Immediately precaded by the word FUNCTION in a FUNCTION 
statements is immediately preceded by the word ENTRY in-= an 
ENTRY statainents or is eat the baginning of a charactar 
substring name (5,10.,1). 
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A variable name in the dummy argument list of a statement function 
statement ts focal to the statement Function statament In which it 
occurs. Note that the use of a name that appears in Table 5 as a 
dummy argument of a statement function removes it from the class of 
intrinsic ?functionse A Variable name that appears as an 
Imnplied-DO-varflabte tn a DATA statement is local to the imptied-DO. 
list. All other variable names are local to a program units 


A statement function dummy argument name may also be the name of a 
vartable or common black in the program unit. The appearance of the 
name in any context other than as a dummy argument of the statement 
Function idantifies the focal variable or commen bliocke Tha 
statement function dummy argument name and local veriabte name have 
the same type andy if of type character, both have the same constant 
length. 

Tha name of an implied-DO-variabte in a DATA statement may also. be 
the aame of aevarfab!le or common block in the program unit. The 
appearance of the name in any context other than as an 
implied-DO-variabl2 in the DATA statement identifies the local 
variable or common block. The implted- DO-variab!e and the  Iocal 
variable have the same typee 

196268 COUSTANI 


A symbolic mame ts the name of a constant if it appears as a 
symbolic name in a PARAMETER statement. 


The symbolic name of a constant. ts focal to a program unite 

19.269 STATEMENT EUNCTION 

A symbolic name is the name of 4 statement function if ai statement 
Funstion statement (16.4) ts present for that symbolic name and {it 


is Not an array name. 


A statement Function name is local to a program unite A statement 
funetion nana may ba the same as a common block name. 


1922-10 INTRINSTC_EUNCTION 


A symbolic nané is tha name of an intrinsic function if it meets all 
of the following conditions: 


(1) The name appears in eae Specific Name column or the Generic 
Name solumn.of Table 5. Bo es te | 


(2) It is not an array namey statement function nanes subroutine 
names, or dummy argument name. 


(3) Every appearance of the symbolic namés except in an INTRINSIC 
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19,2210 INTRINSIC FUNCTION 
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statements a type—statements or as an actual argumenty is 
immediately folloxned hy an actual argument tist enclosed in 
parentheses, 


An intrinsic function name is local to a program unite 

1962011 DUMHY 2ROCEDURE 

A symbolic name is the name of a dummy procedure if the name appears 
in the dummy arodoument tist of a FUNCTIONs SUBROQUTINEs or ENTRY 
statement and meets one or more of the following conditions: 


{1) It appears in an EXTERNAL statements. 


(2) It appears immadiately following the word CALL in a CALL 


stateanent. 


(3) It is not an array name or character variable names and every 
appearance is immadijataly followed by a left parenthesis 
except in ai type-statements In an EXTERNAL stetementys in a 
CALL statements as a dummy arguments as an actual arguments 
or as a common block name in a CONHON or SAVE statement. 


A dummy procedure name is focal to a program untt. 


1922.12 NAMELIST SROUP_NANE 

A symbolfe name Is a NANELIST group name If end only if It appears 
as a group name in a NAMELIST statement. 

A NANELIST group name is focal te a program unite 


A NAMELIST group name must not appear in any statement except a 
NANELISTs READs WRITEs PRINT» or PUNCH statement. 
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The table balow lists the ASCII character set and shows” the 
processor-defined weight tables available. The processor-defined 
user-specified weight tables are selected by parameter values 
supplied to utility subroutine COLSEQ (34125). The defined weight 
tables are? 


FASC II 
TASCIIO! 
'COBOLO! 
SDISPLAY!? 
'STANDARD!,. 


Fixed and usar-specified tables are predefined with $fASCII!' and 
DISPLAY! raspectivels. The ‘INSTALL! parameter value selects 
'CIBOL6? valuese 


tle x | 
Character ASCII ASCII ASCIIG COBOL6 DISPLAY 
Code Graphic a a a VelgntsS=-—Ss=s=<S<S===< 
00 NUL 0 0 0 45 
O01 SOH Lo 0 0 45 
02 STX 2 0 0 45. 
03 eTX 3 0 0 45 
04 EQT 4 0 0 45 
05 ENO ys) 0 ) 4&5 
06 ACK 6 0 9) 45 
07 BEL 7 0 0 45 
08 BS 8 0 0 45 
09 HT 9 0 0 45 
OA LF 10 0 0 45 
OB VT. 11 0. 0 45 
oc FF 12 0 0 45 
OD CR 13 0 0 45 
OF $9 14 0 0 45 
OF SI 15 0 0 45 
10 DLE 16 fe) 0 45 
11 DCL 17 0. 0 45 
12 DC2 18 0 0 45 
13 DC 3 1? 0 0 45 
14 DC4 20 0 0 45 
15 NAK 21 0 0 45 
16 SYN 22 0 0 45 
17 ETB 23 0 0 45 
18 CAN 24 0 0 45 
19 EN 25 0 0 45 
1A SUB 26 0 0 45 
1B ESC 27 0 0 45 
1C FS 28 0 Des; 45 
10 «GS 29 0 0 45 
e RS 30 0 0 45 
1F 5 31 0 0 45 
20 ooh a2 a0) 0 45 
21 : 33 i 34 54 
22 1, 34 c 23 ays 
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23 i 35 3 5 48 
24 + 36 4 16 43 
25 oe 37 5 2 51 
26 3 34 6 6 55 
27 t 39 7 7 56 
28 { 49 a 21 41 
29 ) 41 9 13 42 
2A x 42 10 17 39 
2B + 43 11 15 37 
2C , 44 12 20 46 
2D - 45 13 18 38 
2 ‘ 46 14 12 47 
2F / 47 15 19 40 
30 | 0 GR 16 54 27 
31 1 49 17 55 28 
32 2 50 18 56 29 
33 3 51: 19 57 30 
34 4 52 20 5B 31 
35 5 53 21 59 32 
36 6 54 22 60 33 
37 v4 55 23- 61 34 
38 8 56 24 62 35 
39. 9 57 25 63 36 
3A : 53 26 53 0) 
3B 3 59 27° 14 63 
3C < 60 28 24 58 
3D = 61 29 22 44 
3: > 62 30 9 59 
3F ? 63 31 8 57 
40 -) 64 32 1 60 
41 A 65 33 25 1 
42 28 66 34 26 2 
43 C 67 35 27 3 
44 D 68 36 28 4 
45 E 69 37 29 5 
46 F 709 38 30 6 
47 G 71 39 31 7 
48 H 72 40 32 8 
49 are 73 41 33 9g 
GA J 74 42 35 10 
4B K 75 43 36 11 
&C L 76 44 37 12 
4D i 77 45 35 13 
4E | 78 46 39 14 
4F 0 79 47 40 15 
50 Pp 80 48 41 16 
51 Q R1 49 42 17 
52 R 82 50 43 18 
53 S 83 51 45 19 
54 7 84 52 46 20 
55 U 35 53 47 21 
56 V 86 54 48 22 
57 W 8&7 55 49 23 
58 X 88 56 50 24 
59 ¥ 89 57 51 25 
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APPENDIX A = CHARACTER SET AND COLLATION 
5A 7 a0 53 52 26 
5B [ 91 59 3 49 
5C \ 92 60 10 61 
50 3 93 61 44 50 
E . 94 62 11 62 
5F . 95 63 4 5 
60 . 96 32 1 60 
61 a 97 33 25 1 
62 b 98 34 26 
63 C 99 35 27 3 
64 d 100 36. 28 4 
65 e 101 37 29 5 
66 f 102 38 30 6 
67. 9 103 39 31 7 
68 h 104 40 32 8 
69 i 105 41 33 9 
6A Jj 106 42 35 10 
6B k 107 43 36 11 
6C | 108 44 37 12 
6D m 109 45 38 13 
6& on 110 46 39 14 
6F 0 111 47 40 15 
70 p 112 48 41 16 
71 q 113 49 42 17 
72 r 114 50 43 16 
73 ES 115 51 45 19 
74 t 116 52 46 20 
75 u 117 53 47 21 
76 v 118 54 48 22 
77 " 119 55 49 23 
78 x - 120 56 50 24 
79 y 121 57 51 25 
7A Zz 122 58 52 26 
78 { 123 59 3 49 
7C : 124 60 10 61 
7D } 125 61 44 50 
7E es 126 62 1l 62 
7F DEL 127 63 4 53 
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APPENDIX B — SUMMARY OF LANGUAGE EXTENSIONS 

Below is a fist of Control Data Common FORTRAN language features 
that constituce extensions to ANSI FORTRANs T7e 

Basic _Cancepts 


le Symbolic names can be up to 31 characters In length and may 
include an underscore. | 


2. Bit data type and machine word oriented bit manipulation (for - 
types bit and Boolean) 
Characterse Liness and Execution Sesuence 


1» The characters " (quote) and underscore are added to character 
set | ; 


2e Collation control (for character relationals) 

3, Ch-directives 
Data_Iypes_and Constants 

1. Boolean tyre 

2. Bit type 

3. Half Precision type 

4, Holleriths octals and hexadecimal constants 

5e Symbolic constants as reaf and imaginary parts of a complex 

constant. 

Acrayvs_and Suhsirings 

ls Boolean entities can appear in dimension bound eaxpressionse 


2e Realy hait pracisions, double precisions complexs and Boolean 
expressions as subscript or substring expressionsSe 


3. Array sections 

4, Assumed shape dummy arrays 

5» Allocatable arrays 

6. Extend aljustable dimension bounds expressions to allow all 
antities except external function referances and array elament 


references 


7. ALLICATE and ERZE statements 
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Rowwis® arrays 


pressions 


Boolean expressions 


Boolean entities In artthmatic expressions 


Double precision and complex. operands can be combined using the 


+s -» ¥*s and / operatorse 

A doubla@ preciston operand can be raised to a complex power. 
Boolean entities in relational expressions 

eXOR.e operator 

Bit expressions 


Bit entities in relational expressions 


Snseificatina Statements 


le 


2 


3. 


4s 


10. 


BONLEAN type statament 

BIT type statemant 

HALF. PRECISION type statement 
INTERFACE and END INTERFACE statements 
ROWWISE statement 


Entitie in named common blocks can be iInitiallzed (by means of 
a DATA statement) in any program unit. 


Booleans bits, and half precision types in IMPLICIT ststement 
Booleans bits and half prec{ston types in PARAMETER statement 


A variabse may be specified as integer following its appearance 
in a dimansion bound expresslone 


Numerics characters and bit data may be mixed in common blocks 
and via SOUIVALENCE. 


DATA_Statement 


1» 


Qe 


Replicated value fist 


Bovlaan and Half precision entitles 
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APPENDIX B ~ SUNMARY GF LANGUAGE EXTENSIONS 


Assianveant_State men ot 


1. 
2. 
3. 


4, 


Boolean ang Bit assignment statements 
Multipte Bache statement 
Array assignment statements 


Extended logical assignment (i.e, toglical=bit expressions) 


Control_Statem Es 


1. 


Input-Output ~itaten 


le 
2e 
3 
46 


De 


66 


a 
ae 
er 


10. 


ll. 


Real» half oeprecislons. double precisions complex or Boolean 
expression in computed GO TO statement | 


Beoleen axpress ion in arithmetic IF statement 
Boolean expression as DO—parameter 

One-trip Dltoops are optional. 
Extended<range DO-loops 

Logical WHERE statement 


Block NUERE? QTHERWISEs and ENDWHERE statements. 


eS 
ker: 
a) 


NAHELIST statemant 

BUFFER IN and BUFFER OUT statements 
ENCODE and DECHDE statements 

PUNCH statement 


Record tength specifier in OPEN statement for file accessed 
sequentially (means page width) 


More than one unit can be connected to a single external file 


Extended internal files 


Boolean external unit identifier 


Buffer langth specifier in JPEN statement 


A comma may optionally Follow the output list of an output 
statement thet spacifies list-directed formatting. 


Tnmpticit connaction. 
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Eormat Specification 
le Edit descriptors addad 
ae "H(L)A(2).06" 


be Ry 


fo Zen 

g» By 
By Aw edit descriptor can be us€d for caneanaree tar data. 
3. NAMELIST formatting 


4. Format in noncharacter array 


Eunctioans and Subroutinas 


1. Statement functions 


B4 
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ae Booleans half precisions and bit statement functions 


be Statement function reference may occur prior 
statement function statement. 


to its 


ce. Conversion of actual argument to type of dummy argument 


for statement function references 


de The expression in a.statemont function statement may have 


a substring reference as 2a primarye 


2. external procedures 


4e¢ Boolean arguments can he associated sith Integer or real 


ardumentse 


be. An external procedure name can be the same as 
block nam€e 


ce A RETURN statement can seppear in a main programe 


common 


de The expression e in. RETURN e@ can be any arithmetic or 
Boolean axpressions as contrasted with Integer type only 


in the standard. 


ee Array valued functions 
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APPENDIX B —- SUMMARY OF LANGUAGE EXTENSIONS 
3. Intrinsic functions 
ae T¥ps conversion 


~ 


ie INTs REALS HALFs DBLE» and CHPLX can have Boolean 
araquments e 


lis BOOL function 

iii. BTOLy» LTOBy HALF added 
be Boolean operations CAND» OR» XOR» NEQVs EQVs COMPL) 
ic titweettangeus Functions (SHIFTs NASKs RANF) . 


de Additional mathematical functions (ERF»s ERFC»s ATANHs SIND» 
COSDs TAND) 


ee Additional functions for half precision (HINT, HNINTs 
THNINTs IHINTs HABS» ese ) 


fe Array manipulation functions (MERGEs DOTPRODUCTs 


Rlogsk Data _Suhbeprooran 


1. The name of a block data subprogram may be the same as the name 
of 4 Gommon. block. 


Association _ and Definition 


ciation may axist batween a Boolean entity and a 


1. Partial aSSo 
ecistion ar complex entity. 


double pre 


2e Association may exist between a Boolean entity and an integer or 
real entitye 


3. Association may exist between character entities and 
noncharacter entities, 
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